macro de verif

RVL · 9 Septembre 2010

Re bonjour,

Comment réaliser une macro qui vérifie si dans une plage il n'y a pas de cellules comportant " " (1 espace).
Avec l'éditeur de macro, pas evident !

Le but etant d'identifier (ou de ne pas autoriser) "l'espace" car cela fausse les calculs dans de nombreuses plages sur des fichiers comportant des calculs du genre "nbval".

j'ai bien pensé a une mise en forme conditionnelle (pour identifier ces cellules), mais je deplace les cellules et les mefc avec evidemment ...

Efgé · 9 Septembre 2010

Re : macro de verif

Bonjour RVL
Une proposition:

Code:

[COLOR=BLUE]Sub[/COLOR] test2()
[COLOR=BLUE]For Each[/COLOR] c [COLOR=BLUE]In[/COLOR] Range("A1:b23")
    [COLOR=BLUE]If[/COLOR] c.Value = " " [COLOR=BLUE]Then[/COLOR] c.ClearContents
[COLOR=BLUE]Next[/COLOR] c
[COLOR=BLUE]End Sub[/COLOR]

Cordialement

ROGER2327 · 9 Septembre 2010

Re : macro de verif

Bonjour à tous

Une autre proposition pour le cas où on voudrait nettoyer aussi les cellules contenant deux espaces ou plus.

Code:

[COLOR="DarkSlateGray"][B]Sub tata()
Dim oCel As Range
   For Each oCel In Selection.Cells
      If UBound(Split(oCel)) = Len(CStr(oCel)) Then oCel.ClearContents
   Next oCel
End Sub[/B][/COLOR]

La procédure s'applique aux cellules sélectionnées.

ROGER2327
#4096

Lundi 2 Absolu 138 (Saint Ptyx, silentiare (Abolition de), SQ)
23 Fructidor An CCXVIII
2010-W36-4T16:38:04Z

RVL · 9 Septembre 2010

Re : macro de verif

Re

OK un GRAND merci, j'essaie les 2 sol.

macro de verif

RVL

XLDnaute Occasionnel

Efgé

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

RVL

XLDnaute Occasionnel

Discussions similaires

macro de verif

RVL

XLDnaute Occasionnel

Efgé

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

RVL

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency