Macro avec 2 conditions "SI"

[Tom87]

Salut à tous, j'ai besoin de vos lumières.

Voila, si en "B3" j'ai "0" et en "B4" si j'ai "1",(il faut que les 2 conditions soient remplies), je veux que la macro me copie un tableau de valeur soit à gauche, soit à droite

Je vous laisse le fichier, vous comprendrez mieux

Merci d'avance pour votre aide

 

[Raja]

Re : Macro avec 2 conditions "SI"

Bonjour,

Donne-nous un peu plus de précisions, car pour le moment il en manque pas mal.

 

[Tom87]

Re : Macro avec 2 conditions "SI"

L'opérateur remplie les cellules "B3" et "B4"

Si en B3 il rempli "1" et si en B4 il rempli "0", je veux qu'une macro me copie et colle les valeurs en "E" et "F" dans les colonnes " C et D " ou "G et H".

Si les 2 conditions sont remplies, il faudra copier les valeurs en C et D sinon en G et H

Merci


" Le nombre de valeurs en E et F sera toujours le meme"

 

[Tom87]

Re : Macro avec 2 conditions "SI"

up svp

merci

 

[Raja]

Re : Macro avec 2 conditions "SI"

Re,

Veux-tu absolument une macro ? Et dis-nous aussi ce qu'il faut faire dans ces 4 cas possibles :

1) B3=0 ET B4=0
2) B3=0 ET B4=1
3) B3=1 ET B4=0
4) B3=1 ET B4=1

Parce que avec 2 variables 2² combinaisons possibles.

 

[Tom87]

Re : Macro avec 2 conditions "SI"

oui, je veux une macro car je reprendrai le code pour ensuite l'intégrer a une macro déja existante.

C'est simple, si "B3" = 1 et "B4" = 0, je veux que les valeurs soient copiées a gauche.

pour le reste, à droite ( meme si "B3= 1 et "B4= 12 par exemple")

Merci

 

[Raja]

Re : Macro avec 2 conditions "SI"

Bonjour,

Essaye ce code :

Sub test()
  If ([B3] = 1 And [B4] = 0) Then
    [E3:F8].Copy
    [C15].PasteSpecial Paste:=xlValues
  Else
    [E3:F8].Copy
    [G15].PasteSpecial Paste:=xlValues
  End If
End Sub