suppression de lignes pleines avec excel Vba

[orange sanguine]

bonjour à tous et toutes
je viens de m'inscrire sur ce site qui a l'air très syma,

ma première questio est:

Comment supprimer des lignes identiques dans tout un tableau, lignes qui commencent toujours par une cellule de couleur rouge ou un groupe de mot du genre
"N° de Fiche Sortie"

merci beaucoup

 

[vbacrumble]

Re : suppression de lignes pleines avec excel Vba

Bonjour et bienvenue


Tu connais les macros et VBA ?

Si non , tu peux utiliser les filtre automatique avec le critère " commence par"

 

[JNP]

Re : suppression de lignes pleines avec excel Vba

Bonjour Orange Sanguine et bienvenue 🙂

Ma première question est: en réalité, 3 questions en une...
Comment supprimer des lignes identiques dans tout un tableau,
Fait une recherche sur "doublon", plein de posts en parlent
lignes qui commencent toujours par une cellule de couleur rouge
Une recherche sur "couleur" te donnera aussi plein de réponses
ou un groupe de mot du genre
"N° de Fiche Sortie"
Une fois que tu auras résolus les 2 premiers, la troisième partie ira tout de seul

Dès que tu aura un peu avancé sur ces trois point, reviens vers nous et on adaptera le code trouvé en fonction de tes besoins, si nécessaire.
Bon courage 😎
Salut VBAcrumble.

 

[orange sanguine]

Re : suppression de lignes pleines avec excel Vba

Merci à tous les deux, il faut que je me familiarise avec ce site.
en tous cas merci pour votre aide
je vais suivre vos conseils.

 

[vbacrumble]

Re : suppression de lignes pleines avec excel Vba

Re


Comme j'ai testé la macro, je livre ce code ci-dessous

Ici on filtre et efface les lignes commençant par N° de Fiche Sortie
(les données sont en colonne A)

(PS: la même opération peut se faire manuellement si tu as du mal avec les macros)

Sub Macro2()
' Macro2 Macro
' Macro enregistrée le 11/03/2009 par VBACrumble
Dim pf As Range
Dim pfe As Range

With ActiveSheet
    .Range("A1").AutoFilter Field:=1, Criteria1:="=N° de Fiche Sortie*", Operator:=xlAnd
    Set pf = Range("_FilterDataBase")
    Set pfe = pf.Offset(1, 0).Resize(pf.Rows.Count - 1)
    pfe.SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
    .AutoFilterMode = False
End With
End Sub

 

[orange sanguine]

Re : suppression de lignes pleines avec excel Vba

Merci beaucoup VBACRUMBLE, je vais de ce pas essayer ta macro.
j'étais un peu désespéré parce que je ne trouvais ni dans boublons ni dans couleurs.

super

 

[orange sanguine]

Re : suppression de lignes pleines avec excel Vba

Vbacrumble,

bien que je ne connaisse pas grand chose à vba, elle ne s'exécute pas entièrement. j'ai le message d'erreur erreur d'exécution 1004 pas de cellules correspondantes.

la macro se bloc sur la ligne

pfe.SpecificalCells(xlCellTypeVisible).Delete Shift:=x1up
peux tu me donner des explications

merci

 

[vbacrumble]

Re : suppression de lignes pleines avec excel Vba

Bonsoir

Tu as respecté ces conditions (précitées) ?

Ici on filtre et efface les lignes commençant par N° de Fiche Sortie
(les données sont en colonne A)

edition: voici une petite demo pour te montrer le fonctionnement.

 

[orange sanguine]

Re : suppression de lignes pleines avec excel Vba

vbacrumble

j'ai bien testé ta macro c'est vrai elle fonctionne très bien et même dans les deux sens,
mais moi, ce n'est pas tout à fait ce que je recherche .
moi c'est les lignes où il y a N° de fiche sortie
et non les colonnes
regarde mon exemple

 

[vbacrumble]

Re : suppression de lignes pleines avec excel Vba

Re


Essayes cette macro (si j'ai bien compris ton but)

Sub test()
Const st As String = "N° DE FICHE DE SORTIE"
Dim c As Range
For Each c In Range("a1:a" & [c65536].End(xlUp).Row)
If IsEmpty(c) Or Not c Like st Then
c.Resize(, 3).ClearContents
End If
Next
End Sub

 

[orange sanguine]

Re : suppression de lignes pleines avec excel Vba

attend je vais l'essayer tout de suite mais il faut que j'ouvre mon portable parce que je n'ai que excel 97 sur celui là et toute les macro ne fonctionne pas

en tout cas merci de ton aide

 

[orange sanguine]

Re : suppression de lignes pleines avec excel Vba

vbacrumble

je viens de tester ton code il t'enlève effectivement le contenu des lignes ou il y a de la couleur mais avec le contenu des cellule du dessous mais moi, je veux garder ce qu'il y a dessous c'est à dire les chiffres et supprimer toute la ligne
c'est à dire lacouleur, le forma le texte et ne garder que les chiffres.


c'est les lignes et non les colonnes que je veux faire disparaître
je ne sais pas si je suis assez clair?

Je te fais te creuser la tête.c'est une boucle sur tou le tableau qui analyse lignes par lignes.
Les lignes vont au moins jusqu'à la colonne M

 

[vbacrumble]

Re : suppression de lignes pleines avec excel Vba

Re



Le plus simple : en partant de ton fichier exemple

Sur une feuille , tu mets ce tu as (les données brutes)

Sur une 2ème feuille: tu mets ce que tu veux

Un sorte de avant/après.

Au moins là, j'y verrai plus clair.

 

[orange sanguine]

Re : suppression de lignes pleines avec excel Vba

ok tu as raison je te fais cela

 

[orange sanguine]

Re : suppression de lignes pleines avec excel Vba

C'est vrai en fait c'est la meilleure solution

enfin je ne veux pas abuser trop de ton temps
surtout si tu as sommeil
mais c'est vraiment sympa de ta part
voila le fichierjoint