macro ne fonctionne pas

Spitnolan08

XLDnaute Barbatruc

• 27 Août 2007

• #2

Re : macro ne fonctionne pas

Bonjour,

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

Code:

 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 :

Code:

 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

 

Dernière édition: 27 Août 2007

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 27 Août 2007

• #3

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 :

Code:

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

@+

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 27 Août 2007

• #4

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 27 Août 2007

• #5

Re : macro ne fonctionne pas

Bonjour eduraiss, spit, porcinet, re- le forum

Tiens serait on deux fainéants ?

Cliquez pour agrandir...

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)😉

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Août 2007

• #6

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
@+

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 27 Août 2007

• #7

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Août 2007

• #8

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
@+

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 27 Août 2007

• #9

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

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 27 Août 2007

• #10

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...

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 27 Août 2007

• #11

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,

@+

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 27 Août 2007

• #12

Re : macro ne fonctionne pas

Bonsoir au forum

Je vois que le sujet ouvre la discution

merci a tous c'est OK

Cordialement

Eric

 

Vote positif 0 Vote négatif