macro ne fonctionne pas

[eduraiss]

Bonjour le forum

le code suivant me sert a supprimer les noms de la colonne A si il n'y a pas de valeur en colonne B mais il ne fonctionne pas tres bien le voici

Sub essai()
Dim Cell As Range

For Each Cell In Range("b3:b300")
On Error Resume Next
If Cell.Offset(0, -1).Value = "" Then
Cell.ClearContents
End If
Next Cell

End Sub

Merci de votre aide

 

[Spitnolan08]

Re : macro ne fonctionne pas

Bonjour,

Même si je ne suis pas sûr qu'il te donne le résulat attendu

 Sub essai()
Dim Cel As Range

For Each Cel In Range("b3:b300")
On Error Resume Next
If Cel.Offset(0, -1).Value = "" Then
Cel.ClearContents
End If
Next Cel

End Sub

devrait mieux fonctionner.

On ne peut pas utiliser Cell comme nom de variable : c'est un nom réservé à VBA.

Pour faire ce que tu veux, je mettrais plutôt :

 Sub essai()
 Dim Cel As Range
 For Each Cel In Range("a3:a300")
      If Cel.Offset(0, +1).Value = "" Then Cel.ClearContents
 Next Cel
 End Sub

Cordialement

 

[porcinet82]

Re : macro ne fonctionne pas

Salut,

Bien que la solution de Spitnolan fonctionne parfaitement, comme tu travails sur une seule colonne, tu peux utiliser une boucle standard :

Sub test()
Dim i%
For i = 3 To 300
    If Cells(i, 1).Value = "" Then Cells(i, 2).ClearContents
Next i
End Sub

@+

 

[Spitnolan08]

Re : macro ne fonctionne pas

Salut Porcinet,

Je croyais que tu étais fainéant...😛 (Cf un autre fil du jour)
Il existe encore d'autres façons d'écrire ce bout de code. Et d'ailleurs, je n'aime pas la fonction Offset qui ne sert bien souvent à rien si ce n'est à créer la confusion. En fait j'ai juste voulu remanier le code de base... en allant au minimum. Tiens serait on deux fainéants ?😀

Ce qui m'amène est ton % après ton Dim i. Je l'ai déjà vu mais je ne sais pas à quoi ça sert. Pourrais tu éclairer ma lanterne ?

Cordialement

 

[Cousinhub]

Re : macro ne fonctionne pas

Bonjour eduraiss, spit, porcinet, re- le forum

Tiens serait on deux fainéants ?

Plus fainéant encore :

Columns("B:B").SpecialCells(xlCellTypeBlanks).Offset(0, -1).ClearContents

Ne fonctionne que si ce sont des données entrées à la main en colonne B et non le résultat d'une formule (hélas)😉

 

[Pierrot93]

Re : macro ne fonctionne pas

Bonjour Romain, Spitnolan, Eduraiss, bhbh

Spitnolan, le % sert à déclarer la variable "i" en type de donnée integer.

bonne soiirée
@+

 

[Spitnolan08]

Re : macro ne fonctionne pas

Re le fil,
Bonjour et merci Pierrot,

Je l'avais deviné, mais ça ne sert qu'à ca ? (J'ai déjà fait des recherches sur le sujet mais je n'ai jamais trouvé...)
Existe t il d'autres raccourcis pour d'autre types de données ?
C'est un truc de paresseux ?😛

Bien cordialement

 

[Pierrot93]

Re : macro ne fonctionne pas

Re

pour chaque types tu dois avoir un raccourci, regarde dans l'aide vba, recherche par le type.

bonne soirée
@+

 

[jeanpierre]

Re : macro ne fonctionne pas

Bonsoir à tous,

Ces raccourcis existent bien avant Excel et Vba,

Je n'en ai aucune en tête ce soir, Désolé...., mais dans le Wiki, elles sont explicitées...

Le Wiki reste non opérationnel pour le moment...

A suivre...

Jean-Pierre

 

[Spitnolan08]

Re : macro ne fonctionne pas

Re,

Re Merci Pierrot, En fait c'est à
TypeName, fonction
qu'il faut regarder et l'on a tous les raccourcis. Mais effectivement, c'est un truc pour paresseux 😛 car ça ne sert qu'à ça, et en VBA uniquement...

Cordialement

Edit : Salut JeanPierre. Pour VBA, c'est l'aide de VBA qui le dit...

 

[porcinet82]

Re : macro ne fonctionne pas

re, Bonjour aux nouveaux venus sur le fil,

Spitnolan, soit tu es fainéant, soit tu ne l'ai pas 😛
Moi je le suis a fond, la preuve, ca me fatigue d'écrire les déclarations des varaivles en entier, du coup, un petit % ou un petit $ et le tour es joué...😉

Au plaisir,

@+

 

[eduraiss]

Re : macro ne fonctionne pas

Bonsoir au forum

Je vois que le sujet ouvre la discution

merci a tous c'est OK

Cordialement

Eric