signaler une lettre seule

zumye · 21 Avril 2008

bonjour

j'aimerai avoir une macro qui me permettrai de detecté sur une plage une lettre unique.

ex/ sur une plage de i19:y300
j'inscrit des lettres comme r v i j etc, (electricité).
toutes les lettres doivent etres au minimum ecrite 2 fois.

mais parfois sur cette plage je me trompe et donc une lettre reste seule.
y a t'il une macro qui pourrait par message box me dire "attention une lettre est seule"?
merci

Staple1600 · 21 Avril 2008

Re : signaler une lettre seule

Bonjour

A tester

Code:

Sub zumye()
Dim Cell As Range
Dim Message as String
Application.ScreenUpdating = False
For Each Cell In Range("i19:y300")
If Not IsEmpty(Cell) And Len(Cell) = 1 Then
Message = Message & Cell.Address(0, 0) & Chr(13)
End If
Next Cell
MsgBox "Les cellules suivantes ne contiennent qu'une lettre: " _
& Chr(13) & Chr(13) & Message, vbCritical, "Message d'alerte"
Application.ScreenUpdating = True
End Sub

zumye · 21 Avril 2008

Re : signaler une lettre seule

Merci je l'ai installer mais aucune reaction, y a t il une manip a faire pour enclencher la macro ou autre?
merci

Staple1600 · 21 Avril 2008

Re : signaler une lettre seule

Re

Outils/Macros/ choisir
zumye puis [Exécuter]

zumye · 21 Avril 2008

Re : signaler une lettre seule

merci pour la réponse, je les inseré dans un bouton, ca marche

signaler une lettre seule

zumye

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

zumye

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

zumye

XLDnaute Occasionnel

Discussions similaires