Bonjour à toutes et à tous,
ça fait longtemps et comme je vais mieux (pour l'instant), je me remets à l'amélioration de mes connaissances et, bien entendu, j'ai besoin de votre aide si précieuse.
Voici ma problématique :
J'ai un code que je pense avoir trouvé ici (comme d'hab )
Il fonctionne parfaitement et j'en remercie encore l'auteur
Ce code copie les lignes entièrement et j'aurais besoin qu'il de me copie qu'une partie des lignes, par exemple toutes les lignes col A à D
Et ça, je ne sais pas faire et malgré mes recherches et essais, j'ai pas trouvé.
Auriez-vous la solution ? LOL ça m'arrangerait bien
Je joins le fichier test.
Un grand merci pour tout ce que vous faites.
Bonne journée à toutes et à tous,
Amicalement,
Arthour973,
ça fait longtemps et comme je vais mieux (pour l'instant), je me remets à l'amélioration de mes connaissances et, bien entendu, j'ai besoin de votre aide si précieuse.
Voici ma problématique :
J'ai un code que je pense avoir trouvé ici (comme d'hab )
Code:
Sub Copie()
Dim L As Long
Dim LignesSel As Range
For Each cel In Feuil1.Range("A2:A" & [A2].End(xlDown).Row)
If cel.Value = "juju" Or cel.Value = "lola" Then
If Not LignesSel Is Nothing Then
Set LignesSel = Union(LignesSel, cel.EntireRow)
Else
Set LignesSel = cel.EntireRow
End If
End If
Next
If Not LignesSel Is Nothing Then LignesSel.Copy Feuil2.[A2]
Feuil2.Select
[A1].Select
End Sub
Il fonctionne parfaitement et j'en remercie encore l'auteur
Ce code copie les lignes entièrement et j'aurais besoin qu'il de me copie qu'une partie des lignes, par exemple toutes les lignes col A à D
Et ça, je ne sais pas faire et malgré mes recherches et essais, j'ai pas trouvé.
Auriez-vous la solution ? LOL ça m'arrangerait bien
Je joins le fichier test.
Un grand merci pour tout ce que vous faites.
Bonne journée à toutes et à tous,
Amicalement,
Arthour973,