Je voudrais sous EXCEL importé automatiquement une ligne de données dans
une autre feuille à la condition que la valeur d'une cellule soit par
exemple " NON ou OUI".
Exemple : dans à la ligne 2 j'ai dans la cellule C2 la valeur NON , je
voudrais importé toute la ligne 2 dans un autre tableau.
Comment puise-je faire ?
Merci d'avance.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonjour. Essaie :
Sub Copie() Dim c As Range, sh As Worksheet Set sh = Sheets("Feuil2") With Sheets("Feuil1") For Each c In Range(.[C1], .[C65536].End(xlUp)) If c = "NON" Then c.EntireRow.Copy sh.Rows(sh.[A65536].End(xlUp).Row + 1) End If Next c End With End Sub
Cordialement. Daniel "Thierry BUTEZ" a écrit dans le message de news:
Je voudrais sous EXCEL importé automatiquement une ligne de données dans une autre feuille à la condition que la valeur d'une cellule soit par exemple " NON ou OUI". Exemple : dans à la ligne 2 j'ai dans la cellule C2 la valeur NON , je voudrais importé toute la ligne 2 dans un autre tableau. Comment puise-je faire ? Merci d'avance.
Bonjour.
Essaie :
Sub Copie()
Dim c As Range, sh As Worksheet
Set sh = Sheets("Feuil2")
With Sheets("Feuil1")
For Each c In Range(.[C1], .[C65536].End(xlUp))
If c = "NON" Then
c.EntireRow.Copy sh.Rows(sh.[A65536].End(xlUp).Row + 1)
End If
Next c
End With
End Sub
Cordialement.
Daniel
"Thierry BUTEZ" <jeuxfronde@orange.fr> a écrit dans le message de news:
68F6F321-1D6B-4386-9040-79B84D8A9AC8@microsoft.com...
Je voudrais sous EXCEL importé automatiquement une ligne de données dans
une autre feuille à la condition que la valeur d'une cellule soit par
exemple " NON ou OUI".
Exemple : dans à la ligne 2 j'ai dans la cellule C2 la valeur NON , je
voudrais importé toute la ligne 2 dans un autre tableau.
Comment puise-je faire ?
Merci d'avance.
Sub Copie() Dim c As Range, sh As Worksheet Set sh = Sheets("Feuil2") With Sheets("Feuil1") For Each c In Range(.[C1], .[C65536].End(xlUp)) If c = "NON" Then c.EntireRow.Copy sh.Rows(sh.[A65536].End(xlUp).Row + 1) End If Next c End With End Sub
Cordialement. Daniel "Thierry BUTEZ" a écrit dans le message de news:
Je voudrais sous EXCEL importé automatiquement une ligne de données dans une autre feuille à la condition que la valeur d'une cellule soit par exemple " NON ou OUI". Exemple : dans à la ligne 2 j'ai dans la cellule C2 la valeur NON , je voudrais importé toute la ligne 2 dans un autre tableau. Comment puise-je faire ? Merci d'avance.