Discussion :

[sandrine6282]

Bonsoir,

Dès que je bloque pendant un moment sur quelque chose, je viens sur le forum et j'avance sur mon fichier.

Donc je suis à nouveau bloqué et je fais appel à vous.

J'ai un tableau sur lequel j'aimerais une fonction qui permet d'effacer le contenu de cellule selon 2 critères (si colonne 3 contient Y et colonne 6 contient "" de la même ligne).

Et qui remonterait les lignes en dessous de celles supprimées.

Par contre, je ne dois pas supprimer la ligne mais juste une plage de cellule.

Dans l'attente d'indices pour avancer... le pire c'est que je suppose que c'est simple mais je n'y arrive plus.

Bonne soirée.

Sandrine

[Thautheme]

Bonsoir Sandrine, bonsoir le forum,

Si ton tableau commence en A1 et n'a pas d'étiquettes, le code ci-dessous devrait fonctionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la varaibel TV (Tbleau des Valeurs)
 
Set O = Worksheets("Feuil1") 'définit l'onglet O
TV = O.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
For I = UBound(TV, 1) To 1 Step -1 'boucle inversée sur toutes les ligne I du tableau des valeur TV (de la dernière à la première)
    'si la donnée ligne I colonne 3 de TV est égale à "Y" et la données ligne I colonne 6 de TV est vide
    'supprime les colonnes 1 à 6 de la ligne de l'onglet O (tu adapteras le 6 à ton cas car tu n'as pas précisé jusqu'où aller)
    If TV(I, 3) = "Y" And TV(I, 6) = "" Then O.Cells(I, 1).Resize(1, 6).Delete xlShiftUp
Next I 'prochaine ligne de la boucle
End Sub

Sinon, il te faudra adapter la cellule de départ dans la ligne 6 du code et le ligne de départ dans la boucle de la ligne 7 du code..

[sandrine6282]

Bonsoir,

J'ai essayé le code ce matin avec grand succès !!
Ce soir je m'y remets et cela ne fonctionne plus :-(((

Avez vous une idée de l'erreur que j'ai pu commettre ??

Ci joint le fichier concerné.

Je suis dépité !

Bonne soirée. Sandrine.CARROSSERIE.XLSMCARROSSERIE.XLSM

[Thautheme]

Bonjour Sandrine, bonjour le forum,

Si j'ai bien compris ça se passe dans l'onglet VEHICULES qui n'est pas le premier. Donc le code devient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
 
Set O = Worksheets("VEHICULES") 'définit l'onglet O
TV = O.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
For I = UBound(TV, 1) To 1 Step -1 'boucle inversée sur toutes les ligne I du tableau des valeur TV (de la dernière à la première)
    'si la donnée ligne I colonne 3 de TV est égale à "Y" et la données ligne I colonne 6 de TV est vide
    'supprime les colonnes 1 à 6 de la ligne de l'onglet O (tu adapteras le 6 à ton cas car tu n'as pas précisé jusqu'où aller)
    If TV(I, 3) = "Y" And TV(I, 6) = "" Then O.Cells(I, 1).Resize(1, 6).Delete xlShiftUp
Next I 'prochaine ligne de la boucle
End Sub

[BENNASR]

Bonjour Thautheme, Bonjour sandrine, Bonjour tous le monde
J'ai testé ton code et je crois qu'il manque de déclarer I comme long

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim I as long

[Thautheme]

Bonjour le fil, bonjour le forum,

je crois qu'il manque de déclarer I comme long

Exact BENNASR ! Le code fonctionne quand même, si l'Option Explicit n'est pas spécifiée, mais je préfère habituellement déclarer toutes les variables. Merci de signaler cet oubli...