Discussion :

[Guy7700]

Bonjour,

Est-ce que quelqu’un pourrait m’aider à traduire en VBA ce qui suit :

Si le rang(« C2 :C24 ») contient une information alors ne pas copier la valeur de (« B2:B24 ») même si ce n’est pas la même valeur.

Si n’importe quelle cellule dans le rang(« C2 :C24 ») est vide ET que dans le rang (« B2 :B24 ») il y a une info alors la copier dans le rang (« C ») en regard de la cellule du rang (« B »).

Le but est de garder la trace d’une date initialement choisie alors qu’elle peut être modifiée après choix.



J’arrive à faire ma macro pour la copie des données mais je n’arrive pas à y intégrer la restriction relative à la présence d’une info en colonne « C » qui ne doit pas être mise à jour.

La macro en question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Copier_valeurs()
    ActiveSheet.Unprotect
    Range("B2:B24").Select
    Selection.Copy
    Range("C2:C24").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.NumberFormat = "m/d/yyyy"
    ActiveSheet.Protect
End Sub

Merci à celles et ceux qui auront pris le temps de me lire et, qui sait, de m’aider 😉