MsgBox compteur non numerique

phlaurent55

Nous a quittés en 2020

Repose en paix

• 19 Avril 2013

• #2

Re : MsgBox compteur non numerique

Bonjour azerty, et bienvenue sur le forum

un essai en pièce jointe
il est nécessaire d'activer les macros à l'ouverture du fichier

à+
Philippe

 

Pièces jointes

• 111.xls

  35 KB · Affichages: 68
• 111.xls

  35 KB · Affichages: 71
• 111.xls

  35 KB · Affichages: 75

Vote positif 0 Vote négatif

A

azerty29

Guest

• 19 Avril 2013

• #3

Re : MsgBox compteur non numerique

cela marche parfaitement , j'avais fait la meme chose en comptant mes cases colorées mais avec la mise en forme conditionnelle , il ne reconnaissait pas la couleur des cases !
Merci beaucoup de cette aide !!
Cordialement

 

Vote positif 0 Vote négatif

A

azerty29

Guest

• 19 Avril 2013

• #4

Re : MsgBox compteur non numerique

J'ai essayé dans un simple fichier excel cela fonctionne, mais dans mon fichier principale j'ai deja des macro d'importation , je veux donc effectuer ce calcul apres l'importation, jai placer le code apres le code d'importation et juste avant le End Sub mais cela ne fonctionne pas , il ne m'affiche rien !! Ou placer ce code pour obtenir le MsgBox après le résultat de l'importation ?
Merci

Cordialement

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 19 Avril 2013

• #5

Re : MsgBox compteur non numerique

Re,

jai placer le code apres le code d'importation et juste avant le End Sub mais cela ne fonctionne pas

Cliquez pour agrandir...

apparemment il est au bon endroit

le MsgBox devrait quand même s'afficher

.......... sans voir le code et le fichier, c'est difficile pour moi d'être plus précis

à+
Philippe

 

Vote positif 0 Vote négatif

A

azerty29

Guest

• 19 Avril 2013

• #6

Re : MsgBox compteur non numerique

Le code est sous cette forme

Private Sub Workbook_Open()

Application.ScreenUpdating = False
Application.EnableEvents = False

Dim wb As Workbook
Dim ws As Worksheet

Set wb = Workbooks.Open("\\ur850buro01\vol_buro\users\Ur52799102\Travaux Kevin\Tdb 2013\Suivi_CPG_V4.1.xls")
Set ws = wb.Worksheets("_S16")
Workbooks("2013 - Données tdb reg indicateursv3.xls").Sheets("Feuil1").Range("AH2").Value = ws.Range("Q118").Value
wb.Close dontsave = True
.
.
.
( Beaucoup de ligne d'import comme celle du dessus)

compteur = 0
For Each cellule In Sheets(1).Range("AL2:AT163")
If Not IsNumeric(cellule) And cellule <> "" Then compteur = compteur + 1
Next cellule
MsgBox ("Il y a " & compteur & " cellules non-numériques dans la feuille")

End Sub

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 19 Avril 2013

• #7

Re : MsgBox compteur non numerique

Re,

le problème vient peut-être du nom de la feuille dans cette instruction
Sheets(1).Range("AL2:AT163")

est-ce que le MsgBox s'ouvre à la fin de la procédure ?

à+
Philippe

Edit:

sans conviction, il est peut-être nécessaire de remettre
Application.ScreenUpdating = True
juste avant :
compteur = 0

idem pour:
Application.EnableEvents = True

 

Dernière édition: 19 Avril 2013

Vote positif 0 Vote négatif

A

azerty29

Guest

• 19 Avril 2013

• #8

Re : MsgBox compteur non numerique

Non rien ne s'affiche , j'ai essayé pour les deux cas , mais rien n'y fait sa ne marche pas :/ je comprend pas trop comment faire

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 19 Avril 2013

• #9

Re : MsgBox compteur non numerique

Re,

........ sans voir le fichier 😕

fais une sauvegarde du fichier, ferme Excel

et ensuite ré-ouvre le fichier

à+
Philippe

 

Vote positif 0 Vote négatif

A

azerty29

Guest

• 22 Avril 2013

• #10

Re : MsgBox compteur non numerique

c'est ce que je fais mais rien ne se passe, mon message box n'apparait pas

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 22 Avril 2013

• #11

Re : MsgBox compteur non numerique

Re bonjour,

je me répète une troisième fois;

........... sans voir le fichier 😕😕😕

à+
Philippe

 

Vote positif 0 Vote négatif

A

azerty29

Guest

• 22 Avril 2013

• #12

Re : MsgBox compteur non numerique

C'est bon j'ai reussi et je te remerci, j'avais des SentBox qui trainais dans mon code,

J'ai un autre souci, je me permet de le dire ici

J'ai un fichier qui contient une colonne "C" avec des valeur "1", "2" ou "3" et qui fait 50 lignes environ, je voudrais ouvrir un autre fichier excel qui n'existe pas encore qui dès l'ouverture me donne toute les informations de la ligne qui contient un 1 dans la colonne C. En gros il me faut un nouveau fichier avec les colonne A B et C dont C=1 et il me le faut en macro puisque qu'a chaque fois que je veux ouvrir le nouveau fichier il faut que ça remette à jour, j'ai déja fait des importations de plage de cellule , la c'est le meme cas mais avec une contrainte en plus.

Merci à tous pour le temps que vous prenez

 

Vote positif 0 Vote négatif