Macro if

[alocator]

Bonjour à tous,
l'élaboration du fichier avance. Je viens de découvrir qu'il était possible d'insérer une fonction si dans une macro (si si 🙂).

Après une soirée entière devant l'ordi à tenter de rédiger correctement une formule qui au total doit probablement faire une seule ligne, je vous laisse ce message avec au bout du compte la question qui tue : mais comment faire ???!!!

Alors le but de la manoeuvre est le suivant :
- copier une plage de cellule dans une feuille A.
- aller dans la feuille B
- vérifier si la cellule A3 est vide (cette cellule contiendra ou non du texte)
- si oui : coller la plage initialement copiée à partir de la cellule A1
- si non : coller cette même plage à partir de la cellule M1

Je n'ai pas le fichier test sur cet ordi, il est resté sagement au bureau mais j'espère que le descriptif ci dessus vous aidera à répondre à cette fameuse citée en amont.

Au pire, je pourrai le rajouter demain matin.

Merci pour votre aide,
Sébastien

Ps : c'est marrant les macros, mais faut comprendre la logique ... 🙂

 

[Compte Supprimé 979]

Re : Macro if

Bonsoir Alocator,

Tu peux essayer avec

Sub Copie()
  If IsEmpty(Sheets("B").Range("A3")) Then
    Sheets("A").Range("A2:F10").Copy Destination:=Sheets("B").Range("A1")
  Else
    Sheets("A").Range("A2:F10").Copy Destination:=Sheets("B").Range("M1")
  End If
End Sub

PS : pour copier coller une plage, tu n'es pas obligé de changer de feuille

A+

 

[nyko283]

Re : Macro if

Bonsoir alocator,

Ceci devrait le faire :

 Worksheets("Feuil1").Range("A1:E15").Copy
    Sheets("Feuil2").Select
If Worksheets("Feuil2").Range("A3").Value = "" Then Range("A1").Select Else Range("M1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

Bonsoir Bruno, nos réponse ce sont croisées, et dire que je m'embétais a changer de feuille pour le "paste" alors que c'est si simple

 

[jpb388]

Re : Macro if

Bonjour
If Sheets("feuil2").Range("a3").Value = " " Then
Range("a4:g8").Copy Destination:=Sheets("feuil2").Range("a3")
Else
Range("a4:g8").Copy Destination:=Sheets("feuil2").Range("m1")
End If
a+
jp

 

[Robert]

Re : Macro if

Bonsoir le fil, bonsoir le forum,

Tout est déjà dit ! Juste une nuance...

With Sheets("B")
Sheets("A").Range("A2:F10").Copy Destination:=IIf(.Range("A3").Value = "", .Range("A1"), .Range("M1"))
End With