Discussion :

[jacfld49]

Bonjour le forum,

je cherche le moyen par macro de supprimer des chiffres d'une cellules par rapport à des cellules d'une colonne.
je m'explique: j'ai 4 tableau qui n'ont pas le même nombre de colonne mais qui ont tous la 1ère colonne identique. le 1er Tableau commence en A7 et fini en F105, le 2ème en H7-N105, le 3ème en P7-W7 etc..
ma question , si on supprime un chiffre en colonne A7 à A105, je voudrais que cela supprime aussi ce chiffre dans le 1ère colonne de tous les tableau donc en H7-H105, P7-W105 etc... et de plus qu'il me les tries par ordre croissant
j'espère avoir été assez clair et je vous remercie d'avance
jack

[Ashireon]

Hello,

Donc je résume, tu as troix tableau la premiere colonne est ta référence et est identique pour tous les tableaux.
Tu veux si l'on supprime la référence du premier tableau ( se trouvant dans la première colonne), que cette référence se supprime dans les autres tableaux.
Veux tu effacer uniquement la cellule de la premiere colonne des autres tableau ou toute la ligne de chaque tableau?


:-)

[jacfld49]

Bonjour le forum, Ashireon,

En réalité , j'ai entre 10 et 15 Tableau et oui, je veux effacer seulement la cellule de la 1er colonne des autres tableau
merci d'avance
jacky

[Ashireon]

Voici un petit code

Tu te fais un bouton et tu y colle la macro suivante
Cependant il faudra que tu definisse tes ranges ( premiere colonne toi même par rapport à ton fichier).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Bouton1_Cliquer()
Dim valeur As Variant
valeur = ActiveCell.Value
Dim cel As Variant
 
For Each cel In Range("A7:A105")
    If cel.Value = valeur Then cel.Value = ""
Next
For Each cel In Range("H7:H105")
    If cel.Value = valeur Then cel.Value = ""
Next
 
 
End Sub

Ensuite tu cliques sur la cellule de ta valeur a supprimer puis le bouton

[jacfld49]

Bonsoir le forum, Ashireon ,

Déjà merci beaucoup Ashireon, mais est ce qu'il y a pas une possibilité pour que la colonne A serve pour le code à la place de mettre un bouton, c'est à dire qu' à partir du moment ou il y a des cellules non rempli dans la colonne A, cela fasse pareil dans les autres colonnes
bien sur seulement si cela est possible
merci
jack

Re le forum,

j'ai donc essayer le code, la macro tourne mais ne fonctionne pas et ne me met pas de bug, j'ai essayé en enlevant le dernier N° et un au Hasard et pareil, elle tourne mais ne supprime pas les N° dans les autres colonnes
merci
jacky

[nibledispo]

bonsoir,

Le code proposé répond pour le second tableau et il faudra introduire autant de fois 3 lignes qu'il y a de tableaux.

Ne serait-il pas possible de définir des variables dans le code et utiliser deux boucles imbriquées ?

Code :

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

1
2
3
 var2 =" h7:h105"
 var2 =" p7:p105"
 var2 =" ?7:?105"

Si l'on ajoute des colonnes voire des tableaux supplémentaires pour une quelconque raison, la maintenance serait plus aisée je pense.

Sinon, est-il un impératif d'avoir les tableaux regroupés sur la même feuille? Un tableau par feuille simplifierait me semble t-il les choses.

cordialement.

[Ashireon]

Si toutes les colonnes ont le meme nombre de lignes j'ai une petite idée mais il faudrait que je stocke dans un vecteur l'ensemble des 15 colonnes dans un vecteur. Et je pourrai faire une boucle assez simple.

Si tu as le nom de tes 15 colonnes je vais voir ca des que possible

++