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

Usine à gaz · 9 Janvier 2022

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 · 9 Janvier 2022

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.

job75 · 9 Janvier 2022

Usine à gaz à dit:
J'ai encore du mal montrer le résultat que j'attendais

Il n'est jamais trop tard pour bien faire !

Usine à gaz · 9 Janvier 2022

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 · 9 Janvier 2022

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

Usine à gaz · 9 Janvier 2022

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

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

Usine à gaz

XLDnaute Barbatruc

job75

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires