Débutante : VBA pour effacer contenu de cellules

[Petipeton]

Je m'excuse de n'avoir pas respecté la charte du forum... mea culpa, je n'avais pas pris la peine de lire la charte (c'est réparé).

Je reporte mon précédent message ci-dessous... et vous fais des bisous pour m'excuser...

Encore merci pour les réponses.

*************

Bonjour à tous !

Voili voilou... je débute en vba et c'est po fastoche !!!

J'ai un tableau récup d'un autre logiciel.

Colonnes A, B, C, D, E et F, des infos.

Colonne G, un chiffre me donnant une position

Colonnes suivantes (6 en tout) : des indications.

Or, si en colonne G, je trouve le chiffre 0, j'aimerais que les indications des 6 colonnes suivantes soient effacées car elles rendent la lecture du tableau difficile.

J'ai besoin d'un code VBA car j'aurais le pb sur d'autres tableaux.

Merci les p'tits clous !

Petipeton

 

[lapou]

ben c'est mieux comme cela tu vois ;-)

par contre je ne peux toujours pas t'aider ;-)

Biz Petipeton (j'adore vraiment ce pseudo... 😛)

 

[sousou]

Bonjour.
Pour t'encourager, tu trouveras ci-dessous un code qui devrait te convenir.

Une fois bien compris, tu peux retirer les instructions maplage.select et données.select juste ici pour visua liser le travail du code

Bonne chance.


Sub test()
With ActiveSheet
Set maplage = .Range(Cells(1, 7), Cells(.UsedRange.Rows.Count, 7))
maplage.Select

For Each i In maplage
If i = 0 Then
Set données = .Range(Cells(i.Row, i.Offset(0, 1).Column), Cells(i.Row, i.Offset(0, 6).Column))
données.Select
données.Clear
End If
Next

End With
End Sub

 

[nicole]

hello petipeton,

suis moi aussi débutante en VBA mais peux néanmoins te proposer un code:

sub EffacerCellules()
For i = 0 To nb_element - 1
If Len(range(ta cellule).Value) = 0

Range("Hi:Mi).ClearContents
end if

next

j'espère que ça marchera
Nicole

 

[Pascal76]

Bonjour tout le monde

Oups Nicole ton code dans cet etat ne marchera pas

1- nb_element n'a pas de valeur

2 - ta cellule n'a pas de valeur

3- Range("Hi:Mi) s'écrit Range("H" & i & ":M" & i)

4 - un If sans Then oups

Donc si on veut reprendre ton code

For i = 0 To range("G65536").end(xlUp).row
If Range("G" & i) = 0 then Range("H" & i & ":M" & i).ClearContents
next

Bon courage

Pascal

 

[Pascal76]

Re OUps

For i = 1 To range("G65536").end(xlUp).row et non

For i = 0 To range("G65536").end(xlUp).row

Pascal

 

[Petipeton]

Merci à vous tous, je vais voir si ça marche et surtout, m'approprier le code pour devenir autonome en VBA.

Des bisous à vous tous.

Petipeton (pensée pour Lapou qui aime particulièrement mon pseudo !)

 

[Emmanuel]

Bonjour le forum et bonjour petipeton

Ton prénom ne serai pas VALENTINE

parceque :

Elle avait de tout petipeton, Valentine, Valentine.

Veille chanson des années 60 ou 70 si je ne me trompe pas.
interprète ?

bon, je retourne sur un fichier, sur laquel je n'arrive plus à avancer,
Mais je cherche encore avant de lancer un poste

Bonne soirée
moi aussi j'aime bien, cela me fait penser aussi au petipeton qui pousse dans le ventre de ma chère et tendre ....

Emmanuel

 

[Petipeton]

Coucou, Emmanuel,
Félicitations pour les petits petons dont tu es avec ta moitié le co-auteur !
Ma doudou à moi s'appelle... Valentine... tu y crois à ce drôle de hasard ?? Ou alors, on a les mêmes références !!!
;-DDD
Bises

 

[Emmanuel]

Salut Petipeton

Peut être, va savoir !!!!

A bientôt