Erreur 1004 en copiant dans première cellule vide

Bonjour à tous.

Je fais appel à votre aide car je bloque depuis ce matin sur un problème dans ma macro.

J' avoue certains vont trouver que c' est codé avec mes pieds, mais je débute, et pour le moment c' est plus de l' assemblage de bouts de code qu' autre chose... J' essaye d' assimiler au fur et à mesure.

Dans mon cas, je souhaite que :

_ l' utilisateur réponde par "oui" ou "non" à une question

_ qu' en fonction de cela, une cellule soit copiée depuis la page "question" et collés sur la page "analyse" dans la 1ère cellule "non-vide" sous "A13"

(jusque là tout marche)

_ toujours en fonction de la réponse, une autre cellule soit copiée depuis la page "question" et collés sur la page "analyse" dans la 1ère cellule "non-vide" sous "D13"

Et là, ça ne marche pas, je comprends pas pourquoi ça fonctionne pour la 1ère et pas la seconde fois...

Merci d' avance pour vos lumières !!!

Voici mon code, avec en rouge l' endroit de l'erreur :

Sub Q2()

If MsgBox("Le client est il mineur ?", vbQuestion + vbYesNo, "Type de dossier") = vbYes Then

Application.Goto (ActiveWorkbook.Sheets("Questions").Range("C6"))

Selection.Copy

Sheets("Analyse").Select

Cells(ActiveSheet.Cells(13, 1).End(xlDown).Row + 1, 1).Select

ActiveSheet.Paste

Application.Goto (ActiveWorkbook.Sheets("Questions").Range("G7"))

Selection.Copy

Sheets("Analyse").Select

Cells(ActiveSheet.Cells(13, 4).End(xlDown).Row + 1, 1).Select

ActiveSheet.Paste

Call Q3

Else

Application.Goto (ActiveWorkbook.Sheets("Questions").Range("D6"))

Selection.Copy

Sheets("Analyse").Select

Cells(ActiveSheet.Cells(13, 1).End(xlDown).Row + 1, 1).Select

ActiveSheet.Paste

Application.Goto (ActiveWorkbook.Sheets("Questions").Range("G5"))

Selection.Copy

Sheets("Analyse").Select

Cells(ActiveSheet.Cells(13, 4).End(xlDown).Row + 1, 1).Select

ActiveSheet.Paste

Call Q5

End If

End Sub

Bonjour,

Essaie en remplaçant :

Application.Goto (ActiveWorkbook.Sheets("Questions").Range("G7"))
Selection.Copy
Sheets("Analyse").Select
Cells(ActiveSheet.Cells(13, 4).End(xlDown).Row + 1, 1).Select
ActiveSheet.Paste

par :

Sheets("Questions").Range("G7").Copy Sheets("Analyse").Range("D" & Rows.Count).End(xlUp).Row

Si ok, clique sur le V vert à coté du bouton EDITER pour cloturer le fil

Crdlt

Merci déjà pour la réponse.

J ai remplacé par ce que tu m' as indiqué, mais j' ai toujours une erreur mais plus la même.

J ai erreur "1004" avec en précision " la méthode Copy de la classe Range a échoué" et en faisant "débogage" c est la nouvelle ligne qui est surlignée.

re,

Oups j'ai été trop vite là …

Essaie comme ceci :

Sheets("Questions").Range("G7").Copy Sheets("Analyse").Range("D" & Sheets("Analyse").Range("D" & Rows.Count).End(xlUp).Row + 1)

Crdlt

Ah super ça fonctionne parfaitement !!!

Maintenant, il me reste à analyser pour comprendre mon erreur.

Un grand merci