Désolé, mais j'ai pas mal de quetions aujourdh'ui!!!!
La je cherche le code qui supprime les lignes qui ont dans le champ de
cellule c4:C1000 une valeur commençant par "Somme".
J'ai trouvé des exemples mais ça marche pas dans mon cas. J'ai essayé ça :
Sub suppr_lignes()
For lin = [C1000].End(xlUp).Row To 1 Step -1
If Left(Cells(lin, 5), 1) = "Somme" Then Rows(lin).Delete
Next
End Sub
Mais vu que c'est une reprise d'un autre cas, ce n'est eut être pas du tout
la bonne solution!!
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
Nicolas B.
Salut,
A vue de nez, l'erreur est là :
Left(Cells(lin, 5), 1)
Remplace par ceci : Left(Cells(lin, 3), 5)
(5 pour les 5 premiers caractères de la cellule et 3 pour la colonne C.)
A+ Nicolas B.
Bonjour à nouveau!
Désolé, mais j'ai pas mal de quetions aujourdh'ui!!!!
La je cherche le code qui supprime les lignes qui ont dans le champ de cellule c4:C1000 une valeur commençant par "Somme".
J'ai trouvé des exemples mais ça marche pas dans mon cas. J'ai essayé ça : Sub suppr_lignes() For lin = [C1000].End(xlUp).Row To 1 Step -1 If Left(Cells(lin, 5), 1) = "Somme" Then Rows(lin).Delete Next End Sub
Mais vu que c'est une reprise d'un autre cas, ce n'est eut être pas du tout la bonne solution!!
Merci d'avance
Salut,
A vue de nez, l'erreur est là :
Left(Cells(lin, 5), 1)
Remplace par ceci :
Left(Cells(lin, 3), 5)
(5 pour les 5 premiers caractères de la cellule et 3 pour la colonne C.)
A+
Nicolas B.
Bonjour à nouveau!
Désolé, mais j'ai pas mal de quetions aujourdh'ui!!!!
La je cherche le code qui supprime les lignes qui ont dans le champ de
cellule c4:C1000 une valeur commençant par "Somme".
J'ai trouvé des exemples mais ça marche pas dans mon cas. J'ai essayé ça :
Sub suppr_lignes()
For lin = [C1000].End(xlUp).Row To 1 Step -1
If Left(Cells(lin, 5), 1) = "Somme" Then Rows(lin).Delete
Next
End Sub
Mais vu que c'est une reprise d'un autre cas, ce n'est eut être pas du tout
la bonne solution!!
(5 pour les 5 premiers caractères de la cellule et 3 pour la colonne C.)
A+ Nicolas B.
Bonjour à nouveau!
Désolé, mais j'ai pas mal de quetions aujourdh'ui!!!!
La je cherche le code qui supprime les lignes qui ont dans le champ de cellule c4:C1000 une valeur commençant par "Somme".
J'ai trouvé des exemples mais ça marche pas dans mon cas. J'ai essayé ça : Sub suppr_lignes() For lin = [C1000].End(xlUp).Row To 1 Step -1 If Left(Cells(lin, 5), 1) = "Somme" Then Rows(lin).Delete Next End Sub
Mais vu que c'est une reprise d'un autre cas, ce n'est eut être pas du tout la bonne solution!!
Merci d'avance
Daniel
Ah oui!!!! C'est mieux comme ça!
Merci Nicolas
Salut,
A vue de nez, l'erreur est là :
Left(Cells(lin, 5), 1)
Remplace par ceci : Left(Cells(lin, 3), 5)
(5 pour les 5 premiers caractères de la cellule et 3 pour la colonne C.)
A+ Nicolas B.
Bonjour à nouveau!
Désolé, mais j'ai pas mal de quetions aujourdh'ui!!!!
La je cherche le code qui supprime les lignes qui ont dans le champ de cellule c4:C1000 une valeur commençant par "Somme".
J'ai trouvé des exemples mais ça marche pas dans mon cas. J'ai essayé ça : Sub suppr_lignes() For lin = [C1000].End(xlUp).Row To 1 Step -1 If Left(Cells(lin, 5), 1) = "Somme" Then Rows(lin).Delete Next End Sub
Mais vu que c'est une reprise d'un autre cas, ce n'est eut être pas du tout la bonne solution!!
Merci d'avance
Ah oui!!!! C'est mieux comme ça!
Merci Nicolas
Salut,
A vue de nez, l'erreur est là :
Left(Cells(lin, 5), 1)
Remplace par ceci :
Left(Cells(lin, 3), 5)
(5 pour les 5 premiers caractères de la cellule et 3 pour la colonne C.)
A+
Nicolas B.
Bonjour à nouveau!
Désolé, mais j'ai pas mal de quetions aujourdh'ui!!!!
La je cherche le code qui supprime les lignes qui ont dans le champ de
cellule c4:C1000 une valeur commençant par "Somme".
J'ai trouvé des exemples mais ça marche pas dans mon cas. J'ai essayé ça :
Sub suppr_lignes()
For lin = [C1000].End(xlUp).Row To 1 Step -1
If Left(Cells(lin, 5), 1) = "Somme" Then Rows(lin).Delete
Next
End Sub
Mais vu que c'est une reprise d'un autre cas, ce n'est eut être pas du tout
la bonne solution!!
(5 pour les 5 premiers caractères de la cellule et 3 pour la colonne C.)
A+ Nicolas B.
Bonjour à nouveau!
Désolé, mais j'ai pas mal de quetions aujourdh'ui!!!!
La je cherche le code qui supprime les lignes qui ont dans le champ de cellule c4:C1000 une valeur commençant par "Somme".
J'ai trouvé des exemples mais ça marche pas dans mon cas. J'ai essayé ça : Sub suppr_lignes() For lin = [C1000].End(xlUp).Row To 1 Step -1 If Left(Cells(lin, 5), 1) = "Somme" Then Rows(lin).Delete Next End Sub
Mais vu que c'est une reprise d'un autre cas, ce n'est eut être pas du tout la bonne solution!!
