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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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.
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
🙂
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
23
Affichages
2 K
Retour