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.
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.
Oh le menteur ! On te dit depuis des mois et des années de, de préférence, ne pas utiliser les Select et sur les 3 lignes de code qu'on voit il y en a déjà 2.
Oh le menteur ! On te dit depuis des mois et des années de, de préférence, ne pas utiliser les Select et sur les 3 lignes de code qu'on voit il y en a déjà 2.