Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel supression et coller avec condition

supression et coller avec condition

3 réponses
Avatar
JB
Bjr,

Voici mon Pb :

Soit 2 colonnes

A B
112 j@toto.fr
112 b@toto.fr
113
114 zz@ww.fr
114

Je souhaiterai supprimer la ligne entiere et la copier dans une autre
feuille pour
les lignes qui son vides en B et qui sont unique en A

Dans mon exemple seul la ligne 113 répond a cette condition


Merci de votre aide

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
ru-th
Salut

copie en feuil2
Sub test()
For i = [a65536].End(xlUp).Row To 1 Step -1
If Application.CountIf([a:a], Cells(i, 1)) = 1 _
And IsEmpty(Cells(i, 2)) Then
With Sheets("feuil2")
ligne = .[a65536].End(xlUp).Row + 1
.Rows(ligne).value = Rows(i).value
End With
Rows(i).Delete
End If
Next
End Sub

a+
rural thierry

"JB" a écrit dans le message de news:

Bjr,

Voici mon Pb :

Soit 2 colonnes

A B
112
112
113
114
114

Je souhaiterai supprimer la ligne entiere et la copier dans une autre
feuille pour
les lignes qui son vides en B et qui sont unique en A

Dans mon exemple seul la ligne 113 répond a cette condition


Merci de votre aide

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net



Avatar
ru-th
Salut

peut-être un peu plus rapide (moins de zone à traiter)

Sub test2()
For Each c In Range("b1:b" &
[a65536].End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
If Application.CountIf([a:a], c.Offset(, -1)) = 1 Then
With Sheets("feuil2")
ligne = .[a65536].End(xlUp).Row + 1
.Rows(ligne).Value = Rows(c.Row).Value
End With
Rows(c.Row).Delete
End If
Next
End Sub

a+
rural thierry
"ru-th" a écrit dans le message de news:

Salut

copie en feuil2
Sub test()
For i = [a65536].End(xlUp).Row To 1 Step -1
If Application.CountIf([a:a], Cells(i, 1)) = 1 _
And IsEmpty(Cells(i, 2)) Then
With Sheets("feuil2")
ligne = .[a65536].End(xlUp).Row + 1
.Rows(ligne).value = Rows(i).value
End With
Rows(i).Delete
End If
Next
End Sub

a+
rural thierry

"JB" a écrit dans le message de news:

Bjr,

Voici mon Pb :

Soit 2 colonnes

A B
112
112
113
114
114

Je souhaiterai supprimer la ligne entiere et la copier dans une autre
feuille pour
les lignes qui son vides en B et qui sont unique en A

Dans mon exemple seul la ligne 113 répond a cette condition


Merci de votre aide

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net







Avatar
JB
ru-th avait prétendu :
Salut

peut-être un peu plus rapide (moins de zone à traiter)

Sub test2()
For Each c In Range("b1:b" &
[a65536].End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
If Application.CountIf([a:a], c.Offset(, -1)) = 1 Then
With Sheets("feuil2")
ligne = .[a65536].End(xlUp).Row + 1
.Rows(ligne).Value = Rows(c.Row).Value
End With
Rows(c.Row).Delete
End If
Next
End Sub

a+
rural thierry
"ru-th" a écrit dans le message de news:

Salut

copie en feuil2
Sub test()
For i = [a65536].End(xlUp).Row To 1 Step -1
If Application.CountIf([a:a], Cells(i, 1)) = 1 _
And IsEmpty(Cells(i, 2)) Then
With Sheets("feuil2")
ligne = .[a65536].End(xlUp).Row + 1
.Rows(ligne).value = Rows(i).value
End With
Rows(i).Delete
End If
Next
End Sub

a+
rural thierry

"JB" a écrit dans le message de news:

Bjr,

Voici mon Pb :

Soit 2 colonnes

A B
112
112
113
114
114

Je souhaiterai supprimer la ligne entiere et la copier dans une autre
feuille pour
les lignes qui son vides en B et qui sont unique en A

Dans mon exemple seul la ligne 113 répond a cette condition


Merci de votre aide

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net




Merci je vais tester cela

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net