Problème avec une plage de cellules
Bonjour le forum,
Un petit problème avec mon début de code!!!
Je voudrais savoir si la plage des cellules (G6:G20 G29:G43 G52:G66 G75:G88 G97:G110), est supérieur à 0.
Si c'est le cas je voudrais qu'il me laisse un message.
Si ce n'est pas le cas il ferme la procédure.
Voici le code:
Option Explicit
Private Sibr011 As Date 'sibr015 As Date, sibr019 As Date, sibr020 As Date
Private Sub Worksheet_Activate()
'Brtest
Sibr011 = Sheets("011").Range("G6:G20 G29:G43 G52:G66 G75:G88 G97:G110").Value
'sibr015 = Sheets("015").Range("G6:G20 G29:G43 G52:G66 G75:G88 G97:G110").Value
'sibr019 = Sheets("019").Range("G6:G20 G29:G43 G52:G66 G75:G88 G97:G110").Value
'sibr020 = Sheets("020").Range("G6:G20 G29:G43 G52:G66 G75:G88 G97:G110").Value
If Sibr011 <> 0 Then
MsgBox ("Des br existes")
End If
End Sub
Merci de votre aide.
Bonjour,
Option Explicit
Private Sub Worksheet_Activate()
If Application.Sum(Sheets("011").Range("G6:G20,G29:G43,G52:G66,G75:G88,G97:G110")) > 0 Then _
MsgBox ("Des br existes")
End SubA+
Bonsoir,
Merci ça fonctionne super
Merci encore,
Mais j'aurai encore besoin de vous...
Je vous joint le fichier pour mieux comprendre ma demande.
en fonction du résultat du code précédent, j'aurai voulu coller des valeurs dans une autre feuille.
J ai essayer sans trop de résultat
Merci
Si j’ai bien compris, dans le cas où un numéro de réclamation est inscrit dans une des 5 plages, tu souhaites copier les cellules Code, Numéro réclamation et Réclamation pour chacune des lignes qui a ce numéro renseigné. C’est bien cela ?
De plus, du fait de l’utilisation de l’évènement Activate de la feuille, tu auras une nouvelle copie à chaque activation de la feuille "BrCro".
A+
Bonjour Frangy
C'est tout à fait ca.
Merci
Re Frangy
Ça fonctionne comme je le souhaitais, je te remercie beaucoup, pour ton aide.
Je l'ai juste un peu adapté à mon fichier final.
Je te joint un fichier avec mon code, j'ai essayer de le reduire un peu, mais...
Si tu peu, sinon cela restera comme ça!!!
Merci encore
Bonjour,
Tu aurais pu chercher à réduire la procédure mais l'essentiel n'est pas là.
L'important, c'est que tu obtiennes le résultat attendu.
A+
Merci pour ton aide
Coco