Microsoft 365 Copie les infos d'une feuille dans une autre feuille

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite un beau dimanche

Pour nos ténors, je suis désolé de faire ce fil car la solution m'avait déjà été donnée par [B]job75[/B].
Je l'ai perdu (mal notée, bon sang !) et je ne retrouve plus le fil sur lequel elle était.

J'ai cette erreur :

Pourriez-vous m'aider ?
un grand merci
lionel,

 

[job75]

J'ai encore du mal montrer le résultat que j'attendais

Il n'est jamais trop tard pour bien faire !

 

[Usine à gaz]

LOL,
je pense avoir trouvé
Voici comment j'ai modifié :

Sub Gérard()
With Sheets("Feuil2")
    If ActiveCell.Column = 11 And ActiveCell.Row > 4 Then _
    .Cells(Rows.Count, 1).End(xlUp)(2) = ActiveCell(1, 5).Text
    .Cells(Rows.Count, 2).End(xlUp)(2) = ActiveCell(1, 6)
    .Cells(Rows.Count, 3).End(xlUp)(2) = ActiveCell(1, 7)
    .Columns(1).WrapText = False
End With
End Sub

 

[job75]

Lionej, ça ne risque pas de fonctionner, tu n'as pas encore compris comment fonctionnent les If Then...

Et il ne faut rechercher la dernière cellule que d'une seule colonne (A), utilise donc :

Sub Copie()
With Sheets("Feuil2")
    If ActiveCell.Column = 11 And ActiveCell.Row > 4 Then _
        .Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 3) = ActiveCell(1, 5).Resize(, 3).Value
    .Columns(1).WrapText = False
End With
End Sub

 

[Usine à gaz]

Re Gérard et encore Merci
Ma modif avait pourtant l'air de fonctionner mais je prends celui-là lol
lionel