Sujet Précédent Sujet Suivant

Excel: macro if

Résolu/Fermé
ath80 Messages postés 208 Date d'inscription dimanche 15 juillet 2007 Statut Membre Dernière intervention 15 mars 2018 - 27 févr. 2012 à 17:22
ath80 Messages postés 208 Date d'inscription dimanche 15 juillet 2007 Statut Membre Dernière intervention 15 mars 2018 - 1 mars 2012 à 20:43
Bonjour,

Sous excel, je voudrais réaliser une macro avec une condition SI.
http://cjoint.com/12fe/BBBrwbLiFeh.htm

Si dans Feuil1 la case B3 est égale à s1, je copie les valeurs de la plage D4 à D472 et les colle dans Feuil2 dans la plage B3 à B471.
Ensuite, SI dans Feuil1 la case B3 est égale à s2, je copie la plage de la même façon dans Feuil2 dans la plage C3 à C471. Pour finir si c'est s3 dans B3, je la copie dans la plage D3 à D471.

Si il y a s1 dans la case, c'est cette action qui sera effectuée lorsque l'on appuie sur le bouton OK.

Range("D4:D472").Select
Selection.Copy
Sheets("Feuil2").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("Feuil1").Select
Range("A1").Select

Mais je n'arrive pas à le mettre en place avec IF.

Sinon si c'est s2, ce sera ceci:
Range("D4:D472").Select
Selection.Copy
Sheets("Feuil2").Select
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("Feuil1").Select
Range("A1").Select

Si c'est s3, ce sera ceci:
Range("D4:D472").Select
Selection.Copy
Sheets("Feuil2").Select
Range("D3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("Feuil1").Select
Range("A1").Select

Voyez vous ce que je veux dire ?
Merci de votre aide.

A voir également:

4 réponses

Réponse 1 / 4
chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 306
27 févr. 2012 à 17:38
Bonjour,

il y a un autre moyen que le IF THEN : passer par le Select Case.

J'essaie de vous simplifier votre macro au passage avec cette instruction. Je vous fais ça ce soir.

Cordialement.
0
Réponse 2 / 4
ath80 Messages postés 208 Date d'inscription dimanche 15 juillet 2007 Statut Membre Dernière intervention 15 mars 2018 9
28 févr. 2012 à 17:22
Bonjour,

Avez vous trouvé la solution ?

Merci.
0
Réponse 3 / 4
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
28 févr. 2012 à 18:25
Salut,

teste ce code

Sub Macro1()
[D4:D472].Copy
Select Case [B3].Value
Case Is = "s1"
Sheets("Feuil2").Select
[B3].PasteSpecial Paste:=xlPasteValues
Case Is = "s2"
Sheets("Feuil2").Select
[C3].PasteSpecial Paste:=xlPasteValues
Case Is = "s3"
Sheets("Feuil2").Select
[D3].PasteSpecial Paste:=xlPasteValues
End Select
Application.CutCopyMode = False
Sheets("Feuil1").Select
Range("A1").Select
End Sub

Sur la feuil2, si tu nommes les cellules B3, C3 et D3 exemple B_3, C_3 et D3 le code peut être simplifié

Sub Macro1()
[D4:D472].Copy
Select Case [B3].Value
Case Is = "s1"
[B_3].PasteSpecial Paste:=xlPasteValues
Case Is = "s2"
[C_3].PasteSpecial Paste:=xlPasteValues
Case Is = "s3"
[D_3].PasteSpecial Paste:=xlPasteValues
End Select
Application.CutCopyMode = False
Sheets("Feuil1").Select
Range("A1").Select
End Sub
0
Réponse 4 / 4
ath80 Messages postés 208 Date d'inscription dimanche 15 juillet 2007 Statut Membre Dernière intervention 15 mars 2018 9
1 mars 2012 à 20:43
Merci beaucoup ça marche.
Bonne soirée.
0