macro de verif

[RVL]

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é]

Re : macro de verif

Bonjour RVL
Une proposition:

[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]

Re : macro de verif

Bonjour à tous

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

[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]

Re : macro de verif

Re

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