A B
1- 100 toto
2- 101 lulu
3- 101 tata
4- 102
5- 103 pepe
6- 103
7- 104
8- 104
je dois supprimer et coller dans une autre feuille uniquement les
lignes suivantes :
4,7,8
parce que vide en B et pour la valeur existante en A
ex : Il ne faut surtout pas supprimer la ligne 6 parce que pour une
valeur existante en A il y a une valeur non vide en B (ligne 5)
Merci de votre aide
--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
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
Bonsoir. Essaie le code suivant :
Sub Test() Dim Ligne As Integer, c As Range, Res1 As String Range("a1", Range("a65536").End(xlUp)).Select Ligne = 1 For Each c In Selection If c.Offset(0, 1).Value = "" And c.Value <> Res1 Then Sheets("feuil2").Range("A" & Ligne) = c.Value Sheets("feuil2").Range("B" & Ligne) = c.Offset(0, 1).Value Ligne = Ligne + 1 End If If c.Offset(0, 1).Value <> "" Then Res1 = c.Value End If Next c End Sub
Cordialement. Daniel "JB" a écrit dans le message de news:
Bonsoir a tous,
J'ai le Pb suivant à résoudre :
A B 1- 100 toto 2- 101 lulu 3- 101 tata 4- 102 5- 103 pepe 6- 103 7- 104 8- 104
je dois supprimer et coller dans une autre feuille uniquement les lignes suivantes :
4,7,8
parce que vide en B et pour la valeur existante en A ex : Il ne faut surtout pas supprimer la ligne 6 parce que pour une valeur existante en A il y a une valeur non vide en B (ligne 5)
Merci de votre aide
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
Bonsoir.
Essaie le code suivant :
Sub Test()
Dim Ligne As Integer, c As Range, Res1 As String
Range("a1", Range("a65536").End(xlUp)).Select
Ligne = 1
For Each c In Selection
If c.Offset(0, 1).Value = "" And c.Value <> Res1 Then
Sheets("feuil2").Range("A" & Ligne) = c.Value
Sheets("feuil2").Range("B" & Ligne) = c.Offset(0, 1).Value
Ligne = Ligne + 1
End If
If c.Offset(0, 1).Value <> "" Then
Res1 = c.Value
End If
Next c
End Sub
Cordialement.
Daniel
"JB" <jb@free.fr> a écrit dans le message de news:
mn.d4d77d549b3046dc.30888@free.fr...
Bonsoir a tous,
J'ai le Pb suivant à résoudre :
A B
1- 100 toto
2- 101 lulu
3- 101 tata
4- 102
5- 103 pepe
6- 103
7- 104
8- 104
je dois supprimer et coller dans une autre feuille uniquement les lignes
suivantes :
4,7,8
parce que vide en B et pour la valeur existante en A
ex : Il ne faut surtout pas supprimer la ligne 6 parce que pour une valeur
existante en A il y a une valeur non vide en B (ligne 5)
Merci de votre aide
--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
Sub Test() Dim Ligne As Integer, c As Range, Res1 As String Range("a1", Range("a65536").End(xlUp)).Select Ligne = 1 For Each c In Selection If c.Offset(0, 1).Value = "" And c.Value <> Res1 Then Sheets("feuil2").Range("A" & Ligne) = c.Value Sheets("feuil2").Range("B" & Ligne) = c.Offset(0, 1).Value Ligne = Ligne + 1 End If If c.Offset(0, 1).Value <> "" Then Res1 = c.Value End If Next c End Sub
Cordialement. Daniel "JB" a écrit dans le message de news:
Bonsoir a tous,
J'ai le Pb suivant à résoudre :
A B 1- 100 toto 2- 101 lulu 3- 101 tata 4- 102 5- 103 pepe 6- 103 7- 104 8- 104
je dois supprimer et coller dans une autre feuille uniquement les lignes suivantes :
4,7,8
parce que vide en B et pour la valeur existante en A ex : Il ne faut surtout pas supprimer la ligne 6 parce que pour une valeur existante en A il y a une valeur non vide en B (ligne 5)
Merci de votre aide
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
