Rapport de message :*
 

Macro Condition sans rupture de liaison dans feuille

Titre du sujet : Macro Condition sans rupture de liaison dans feuille
par lagratte le 11/07/2009 14:38:05

Bonjour à tous.

Voilà une application de DEVIS.

J’ai 3 feuilles dans mon classeur pour cette situation
‘’BD ‘’
‘’SAISIE’’
‘’DEVIS’’
Dans ma feuille de saisie je vais chercher les articles par une menu déroulant (validation de données liste) => Menu Formule/Définir un nom => fonction DECLALER dans la gestion des noms.
C’a pour la désignation des produits. Pour mon exemple il s’agit d’une poutre. Par la fonction RECHERCHEV j’affiche dans les colonnes suivantes la largeur / la hauteur / le poids etc…
Bon voilà pour le principe.


Ma feuille DEVIS contient par liaison relative une copie conforme de ma feuille de SAISIE. Pourquoi parce que dans la feuille DEVIS il s’y trouve des calculs complexes et dans la feuille DEVIS les derniers calculs commerciaux. Bon c’est comme cela que bosse la boîte dans laquelle je viens d’arriver.

Mon but je prends un exemple
Col A Col B Col C Col D Col E
Désignation   Type    Largeur   x    Hauteur
  Poutre IC      40x75     IC 40    x     75

Bon et bien dans ma feuille SAISIE la hauteur qui sert à calculer le volume du produit est une valeur du fait de sa géométrie.
Poutre IC 40x75 IC 40 x 45.4 (ce sera la valeur à changer dans la feuille DEVIS)

Et c’est dans ma feuille de DEVIS que je dois faire la conversion

Poutre IC 40x75 IC 40 x 75

Mais sans casser le lien relatif pour des questions de manipulations des opérateurs car sans cela il faudrait refaire toute la structure de ce soft et ce n’est pas au programme, donc je souhaite l’améliorer et le rendre plus souple.

Voici un code que j'ai adapté:


 
Private Sub Worksheet_Change(ByVal Target As Range)
'Dim Note As Integer 'on va s'en passer, on fera directement appelle a Target.value il est la pour ça
Dim Mention As String
 
'On vérifie que target correspond bien a une des cellules que l'on souhaite contrôler
'Je suppose que tout les nom des élèves sont en colonne A et les note en B, ca donne donc
If Not Intersect(Target, Range("A:A")) Is Nothing Then    'rempalce le B par la colonne qui contient les notes
    'B:B represente toute la colonne
    'Note = Target
 
    Select Case Target.Value

        Case "Poutre IC 40x75": Mention = "75"
        Case "Poutre IC 40x80": Mention = "80"
        Case "Poutre IC 40x95": Mention = "95"
        Case "Poutre IC 40x100": Mention = "100"
        Case "Poutre IC 40x105": Mention = "105"
        Case "Poutre IC 40x110": Mention = "110"
        Case "Poutre IC 40x115": Mention = "115"
        Case "Poutre IC 40x120": Mention = "120"
        Case "Poutre IC 40x125": Mention = "125"
        Case "Poutre IC 40x130": Mention = "130"
        Case "Poutre IC 40x145": Mention = "145"
        Case "Poutre IC 40x150": Mention = "150"
 
        
    End Select
 
    'Cells(Target.Row, 3) = Mention  'remplace le 3 par le numéro de colonne que tu veux
    'ici on va utiliser la notion d'offset, qui permet de décaler la celui "pointé" de y lignes et de x colonne,
    'y positif on descend, négatif... on remonte dans le tableau
    'x >0 on va vers la droite, x<0 on va vers la gauche
    'dans les 2 cas attention de ne pas sortir du tableau excel ;)
    
    'On va également éviter de re-déclencher Change (vu que l'on modifie une cellule OnChange se déclenche
    'Il ne faudra pas le faire si la modif de la cellule en colonne B doit exécuter du code dans l'événement Change
    
    On Error Resume Next 'si une erreur survient on passe qd même a la ligne suivante, jefais ca pour eviter de rester avec EnableEvent a false
    Application.EnableEvents = False 'Excel ne déclenchera plus de code événementiel
    Target.Offset(0, 5).Value = Mention 'la cellule immédiatement a coté de la notre prend la valeur contenu dans Mention
    Application.EnableEvents = True 'Excel recommence a gerer l'événementiel
    On Error GoTo 0 ' si des erreur surviennent a partir de maintenant excel nous avertira (comme avant le resume next - c'est par défaut)
    
End If
End Sub
 

En d'autres termes....

Ce que je veux après qu'il y ait eu les saisies dans la feuille SAISIE, c'est que dans la feuille DEVIS (qui est en quelque sorte une feuille de mise en forme devant servir à être imprimée et envoyée au client) si la colonne E trouve en colonne A la désignation Poutre IC 40x75 donc que sur la même ligne en colonne E (malgré qu'il y ait une liaison relative à la feuille de SAISIE) qu'elle prenne la main et indique la valeur 75 et non 45.4 résultant de la liaison donc la véritable hauteur de la poutre. Et cela bien sûr sans intervention manuelle.

En quelque sorte c'est une condition que je veux écrire derrière la liaison et la recopie vers le bas des liaisons.

Ouf, pas facile à expliquer comme cela... je vous joins un fichier exemple.

Est-ce la bonne méthode ?? Merci vous serez super....

Lagratte