Discussion :

[AncientFalmer]

Bonjour, je suis débutant en VBA, je vous expose mon problème :
Voilà je cherche à intégrer dans une feuille appellée "1503" les données (avec tout ce qu'elle contient donc valeur/couleur/etc..) la cellule A2 de la feuille qui la précède "1502" .
Mais , la valeur doit être copiée uniquement si la macro reconnaît la cellule B2 et G2 ! Le contenu des cellules B2 et G2 entre les feuilles 1503 et 1502 sont les même ! Voilà ce que j'ai essayé mais il ne se passe rien ..

Code :

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

1
2
3
4
5
If Worksheets("1503").Range("B2").Value = Worksheets("1502").Range("B2").Value Then
ElseIf Worksheets("1503").Range("G2").Value = Worksheets("1502").Range("G2").Value Then
Worksheets("1503").Range("A2") = Worksheets("1503").Range("A2").Value
 
End If

[unparia]

Bonjour
Ton elseif doit alors être un if (pas un elseif)
A noter : tu pourrais également utiliser l'opérateur And --->>

Code :

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

if expression1 and expression2 then .....

[AncientFalmer]

J'ai supprimé la ligne du elfseif pour intégrer un and et il se passe toujours rien

Code :

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

1
2
3
4
5
If Worksheets("1503").Range("B2").Value = Worksheets("1502").Range("B2").Value And Worksheets("1503").Range("G2").Value = Worksheets("1502").Range("G2").Value Then
 
Worksheets("1503").Range("A2") = Worksheets("1503").Range("A2").Value
 
End If

[unparia]

S'il ne se "passe rien", c'est que les deux conditions ne sont pas réunies.
Et tu es bien le seul à pouvoir le vérifier.

[Arkham46]

Bonsoir,

Ou alors le test est vrai, mais l'instruction à l'intérieur ne fait rien.

Code :

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

Worksheets("1503").Range("A2") = Worksheets("1503").Range("A2").Value

[unparia]

mais l'instruction à l'intérieur ne fait rien.

ou n'a une utilité que si le contenu est le résultat d'une formule et que l'on souhaite le figer en le transformant en constante.