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 😉

[Trystan441]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Test
 
Dim WsTest as worksheet
set WsTest = workbooks("Test").sheets("Test")
 
Dim i as long, Ligne as long
Ligne = sheets("Test").cells(rows.count,2).end(xlup).row
 
for i = 2 to Ligne step 1
 
if WsTest.cells(i,3)="" then
WsTest.cells(i,3)=WsTest.cells(i,2)
 
next i
 
end sub

Selon moi, la situation n°1 n'a pas lieu d'exister au regard de la situation n°2 :
Je m'explique !

Situation n°1 :
Si ta cellule en colonne C n'est pas vide alors on fait rien

Situation n°2 :
Si ta cellule dans colonne C est vide alors on copie sinon on fait

Si j'ai mal compris n'hésites pas à me le dire

Edit : Pour que ça fonction chez toi, remplace les mots "Test" par les noms correspondants à ton classeur Excel (à part le WsTest, celui là tu peux le laisser)

[halaster08]

Bonjour,

Une proposition a mettre en pratique avec l'enregistreur de macro pour qu'il te donne le code:
Dans une autre colonne ajouter la formule suivante =SI(C1>0;C2;B2) à la ligne 2 puis l'étendre sur autant de lignes que nécessaire
Puis copier le contenu de cette colonne sur ta colonne C

[Guy7700]

Bonjour,

Merci à vous deux pour vos suggestions que je testerai dès que possible. Je reviendrai sur ce fil pour un feedback.

[Guy7700]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Test
 
Dim WsTest as worksheet
set WsTest = workbooks("Test").sheets("Test")
 
Dim i as long, Ligne as long
Ligne = sheets("Test").cells(rows.count,2).end(xlup).row
 
for i = 2 to Ligne step 1
 
if WsTest.cells(i,3)="" then
WsTest.cells(i,3)=WsTest.cells(i,2)
 
next i
 
end sub

Selon moi, la situation n°1 n'a pas lieu d'exister au regard de la situation n°2 :
Je m'explique !

Situation n°1 :
Si ta cellule en colonne C n'est pas vide alors on fait rien

Situation n°2 :
Si ta cellule dans colonne C est vide alors on copie sinon on fait

Si j'ai mal compris n'hésites pas à me le dire

Edit : Pour que ça fonction chez toi, remplace les mots "Test" par les noms correspondants à ton classeur Excel (à part le WsTest, celui là tu peux le laisser)

Bonjour Trystan,

Merci pour ta proposition de code. Je l'ai testée mais j'ai une erreur :



Comment y remédier stp ?

Bien à toi,

[halaster08]

Tu as un if sans end if (ligne 11)

[eriiic]

Bonjour,

si je m'en tiens à ça :

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

Je le ferais au moment de la saisie.
Dans le module de la feuille :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim pl As Range, c As Range
    Set pl = Intersect(Target, UsedRange, Columns(2))
    If Not pl Is Nothing Then
        Application.EnableEvents = False
        For Each c In pl
            If c.Offset(, 1) = "" Then c.Offset(, 1).Value = c
        Next c
        Application.EnableEvents = True
    End If
End Sub

eric