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

Usine à gaz

XLDnaute Barbatruc
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 :
1641731973349.png


Pourriez-vous m'aider ?
un grand merci :)
lionel,
 
Solution
VB:
Sub Copie()
With Sheets("Feuil2")
    If ActiveCell.Column = 11 And ActiveCell.Row > 4 Then _
        .Cells(Rows.Count, 1).End(xlUp)(2) = ActiveCell(1, 5) & " " & ActiveCell(1, 6).Text & " " & ActiveCell(1, 7).Text
    .Columns(1).WrapText = False
End With
End Sub
Mais je ne vois pas l'intérêt des cellules P5 et Q5 dont les valeurs sont déjà en O5.

Usine à gaz

XLDnaute Barbatruc
LOL,
je pense avoir trouvé :)
Voici comment j'ai modifié :
VB:
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

XLDnaute Barbatruc
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 :
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
315 092
Messages
2 116 118
Membres
112 665
dernier inscrit
JPHD