Supprimer des lignes sous conditions
marieg58
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Je voudrais, dans un tableau, supprimer les lignes qui ont la même valeur en colonne a et colonne B.
La colonne a contient des codes article, la colonne B des prix, la colonne C une date.
Je veux supprimer toutes les lignes qui ont les mêmes code article etmêmes dates.
J'ai fait ce code mais ca ne fonctionne absolument pas.
Sheets("feuil5").Select
Range("a1").Select
Dim feuille As Worksheet
Set feuille = ActiveSheet
With feuille
For i = .UsedRange.Rows.Count To 1 Step -1
j = i + 1
If (.Cells(i, 1) & .Cells(i, 2)) = (.Cells(j, 1) & .Cells(j, 2)) Then
.Range(.Cells(j, 1), .Cells(j, 4)).ClearContents
End If
Next i
End With
Je suis débutante
merci de votre aide
Je voudrais, dans un tableau, supprimer les lignes qui ont la même valeur en colonne a et colonne B.
La colonne a contient des codes article, la colonne B des prix, la colonne C une date.
Je veux supprimer toutes les lignes qui ont les mêmes code article etmêmes dates.
J'ai fait ce code mais ca ne fonctionne absolument pas.
Sheets("feuil5").Select
Range("a1").Select
Dim feuille As Worksheet
Set feuille = ActiveSheet
With feuille
For i = .UsedRange.Rows.Count To 1 Step -1
j = i + 1
If (.Cells(i, 1) & .Cells(i, 2)) = (.Cells(j, 1) & .Cells(j, 2)) Then
.Range(.Cells(j, 1), .Cells(j, 4)).ClearContents
End If
Next i
End With
Je suis débutante
merci de votre aide
A voir également:
- Supprimer des lignes sous conditions
- Supprimer rond bleu whatsapp - Guide
- Supprimer page word - Guide
- Partager des photos en ligne - Guide
- Supprimer pub youtube - Accueil - Streaming
- Fichier impossible à supprimer - Guide
3 réponses
Salut,
Sans avoir tester, remplace :
Franck P
Sans avoir tester, remplace :
If (.Cells(i, 1) & .Cells(i, 2)) = (.Cells(j, 1) & .Cells(j, 2)) Thenpar :
If .Cells(i, 1) = .Cells(j, 1) And .Cells(i, 2) = .Cells(j, 2) Then--
Franck P
Merci mais ca ne fonctionne pas tout a fait correctement.
Au bout d'un moment il s'arrete et j'ai la fenete débogage
Et enfin je voudrais supprimer les 2 lignes identiques, mais il ne supprime que la deuxième
merci de votre aide
Au bout d'un moment il s'arrete et j'ai la fenete débogage
Et enfin je voudrais supprimer les 2 lignes identiques, mais il ne supprime que la deuxième
merci de votre aide
Désolée je ne suis pas très douée, je débute, en fait j'ai un gros fichier à traiter et je ne m'en sors pas.
En fait, au bout d'un moment, J'ai une boite de dialogue "Erreur 13 Incomptabilité de type" et il surligne la ligne
If .Cells(i, 1) = .Cells(j, 1) And .Cells(i, 2) = .Cells(j, 2) Then
J'ai modifié le code comme suit :
Sub Macro()
Sheets("feuil5").Select
Range("a1").Select
Dim feuille As Worksheet
Set feuille = ActiveSheet
With feuille
For i = .UsedRange.Rows.Count To 1 Step -1
j = i + 1
If .Cells(i, 1) = .Cells(j, 1) And .Cells(i, 2) = .Cells(j, 2) Then
.Rows(i & ":" & j).EntireRow.Delete
End If
Next i
End With
End Sub
Mais cette fois, il tourne dans le vide. J'ai encore dû faire une erreur
merci
En fait, au bout d'un moment, J'ai une boite de dialogue "Erreur 13 Incomptabilité de type" et il surligne la ligne
If .Cells(i, 1) = .Cells(j, 1) And .Cells(i, 2) = .Cells(j, 2) Then
J'ai modifié le code comme suit :
Sub Macro()
Sheets("feuil5").Select
Range("a1").Select
Dim feuille As Worksheet
Set feuille = ActiveSheet
With feuille
For i = .UsedRange.Rows.Count To 1 Step -1
j = i + 1
If .Cells(i, 1) = .Cells(j, 1) And .Cells(i, 2) = .Cells(j, 2) Then
.Rows(i & ":" & j).EntireRow.Delete
End If
Next i
End With
End Sub
Mais cette fois, il tourne dans le vide. J'ai encore dû faire une erreur
merci
