modif d'une ligne vba

Re : modif d'une ligne vba

Bonjour,

Je crois que de toutes façons COUNTIF (NB.SI) ne fonctionne pas sur une plage discontinue ...

Re : modif d'une ligne vba

bonjour zumye

Tu es sur la bonne voie

Teste ceci


Edit : Salut Catrice
J'ai testé et ma foi cela semble fonctionner !!!

Re : modif d'une ligne vba

merci pierrejean

Re : modif d'une ligne vba

Bonsoir PierreJean,

Je confirme COUNTIF ne fonctionne pas sur une zone discontinue.
Ton code fonctionne car en final, la zone que tu adresses est continue.

Pour le verifier essaie :
MsgBox Range("AO2:AO" & Range("AO65000").End(xlUp).Row, "AK2:AK" & Range("AK" & 65536).End(xlUp).Row).Address
ou
Range("AO2:AO" & Range("AO65000").End(xlUp).Row, "AK2:AK" & Range("AK" & 65536).End(xlUp).Row).Select

Dans mon cas il y a des données jusqu'à la ligne 10 ça me selectionne la zone continue : AK2:AO10.

Pour verifier que CountIf ne fonctionne pas en discontinue :
Range("AK2:AK10,AO2:AO10").Select
=> Ca marche
MsgBox Application.CountIf(Range("AK2:AK10,AO2:AO10"), "10")
=> Ca plante
MsgBox Application.CountIf(Range("AK2:AK10"), "10")
=> Ca marche

Enfin, elle ne fonctionne pas en discontinue dans le feuille de calcul 🙁
=> =NB.SI(AK2:AK10;AO2:AO10;"10") ça plante !


Bref, si dans son appli, Zumye a des données entrant dans le critere dans les colonnes AL à AN, le resultat sera faux.

Re : modif d'une ligne vba

Re,

Je propose la solution :

Sub Test()
doublon = 10
If Application.CountIf(Range("AO2:AO" & Range("AO65000").End(xlUp).Row), doublon) + Application.CountIf(Range("AK2:AK" & Range("AK65000").End(xlUp).Row), doublon) > 1 Then 'Code à effectuer si Vrai
End Sub

Re : modif d'une ligne vba

bonsoir Catrice , le forum

Exact Catrice , j'ai mal interpreté l'enregistreur de macro lors d'un test de zone non contigues

pour selecter il faut:


et non


Dans le second cas le Countif fonctionne mais comme tu le precises sur la plage continue alors que dans le 1er on a une erreur de non conformité

Toutes mes excuses donc à zumye et aux lecteurs du forum