petite modif sur vba

[zumye]

bonjour le forum

je n'arrive pas a modifier ce vba :

Private Sub CommandButton5_Click()
For Each cel In Range("p19:y314")
If Application.WorksheetFunction.CountIf(Range("p19:Y314"), cel) = 1 Then
MsgBox cel & " " & "est seul"
End If
Next
End Sub

ce vba me permet de detecté une lettre isolé sur la plage ("p19:y314") et je voudrais insérer une plage en plus c18:f28

donc j'ai essayer de remplacer ("p19:y314") par ("p19:y314,c18:f18")
mais ca ne fonctionne pas

quelqu'un peut me dire comment corriger ce probleme

merci

 

[kjin]

Re : petite modif sur vba

bonjour,
Essaie Range("p19:y314", "c18:f18") aux 2 endroits
A+
kjin

 

[zumye]

Re : petite modif sur vba

bonjour kjin
j'ai essayer mais ca ne donne pas le resultat attendu
je crois que ("p19:y314", "c18:f18") fonctionne comme si j'avais ("c18:y314")

ma recherche doit s'effectuer sur la plage ("p19:y314") et sur la plage ("c18:f18")

merci

 

[kjin]

Re : petite modif sur vba

Bonjour,
Si tu compares l'ensemble des valeurs contenues dans l'union des 2 plages,

Private Sub CommandButton5_Click()
For Each cel In Range("P19:Y314", "C18:F18")
If Application.WorksheetFunction.CountIf(Range("P19:Y314", "C18:F18"), cel) = 1 Then
MsgBox cel & " " & "est seul"
End If
Next
End Sub

doit fonctionner
Sinon, je ne comprends pas ou ce que tu veux faire, ou quel est le problème
A+
kjin

 

[Pierrot93]

Re : petite modif sur vba

Bonjour Zumye, kjin

pas compris la même chose, voir pas compris du tout.... essaye peut être comme ceci :

Dim cel As Range
For Each cel In Range("P19:Y314", "C18:F18")
    If Len(cel.Value) = 1 Then MsgBox cel.Value & " est seul en " & cel.Address(0, 0)
Next cel

bonne journée
@+

 

[zumye]

Re : petite modif sur vba

bonjour pierrot
merci, pour le vba, il est mieux que celui que j'avais.
mais j ai tjs le meme probleme, etrange est il
("P19:Y314", "C18:F18") ceci correspond bien a deux plage differente?
ex:
si je rentre la lettre "a" en c21 donc en dehors de mes plages, il me dis quand meme que la lettre est seul, je ne comprend pas pourquoi car elle se trouve ni dans P19:Y314 ni dans C18:F18

merci

 

[Pierrot93]

Re : petite modif sur vba

Re

oui, même problème... essaye comme ci dessous :

Sub test1()
Dim cel As Range, p As Range
Set p = Union(Range("C18:F18"), Range("P19:Y314"))
For Each cel In p
    If Len(cel.Value) = 1 Then MsgBox cel.Value & " est seul en " & cel.Address(0, 0)
Next cel
End Sub

bon après midi
@+

 

[zumye]

Re : petite modif sur vba

merci pierrot93 ca fonctionne desormais