Problème VBA
aurelie85000
-
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
débutante en VBA, j'aimerai pouvoir résoudre un petit problème :
dans un tableau j'ai des colonnes : 1*, 2*, 3* etc, dans chacune des colonnes, j'ai des nombres soit en bleu (caractère obligatoire) soit en rouge (caractère facultatif), les cellules qui m'intéressent deviennent grisées (couleur de fonds) la couleur de police elle ne change pas (bleue ou rouge)
j'aimerai faire la somme des chiffres bleus sur fonds gris
et la somme des chiffres rouge sur fonds gris
pour chacune de mes colonnes
je patauge un peu....
Y'a t'il quelqu'un susceptible de m'éclairer un peu, bien sûr n'hésitez pas si mes explications ne sont pas suffisamment claires.
Merci d'avance pour votre aide !
débutante en VBA, j'aimerai pouvoir résoudre un petit problème :
dans un tableau j'ai des colonnes : 1*, 2*, 3* etc, dans chacune des colonnes, j'ai des nombres soit en bleu (caractère obligatoire) soit en rouge (caractère facultatif), les cellules qui m'intéressent deviennent grisées (couleur de fonds) la couleur de police elle ne change pas (bleue ou rouge)
j'aimerai faire la somme des chiffres bleus sur fonds gris
et la somme des chiffres rouge sur fonds gris
pour chacune de mes colonnes
je patauge un peu....
Y'a t'il quelqu'un susceptible de m'éclairer un peu, bien sûr n'hésitez pas si mes explications ne sont pas suffisamment claires.
Merci d'avance pour votre aide !
7 réponses
Salut,
Vite fait, regardes ce code, la plage à traitée est nommée pour l'exemple tableau
ou modifies cette ligne en donnant la plage
For Each Cellule In Range("A1:A30")
Sub CompteCellules()
Dim Tabl As Range
Dim x As Long
Dim i As Long
Dim Cellule As Variant
i = 0
x = 0
For Each Cellule In Range("Tableau")
If Cellule.Interior.ColorIndex = 15 Then
If Cellule.Font.ColorIndex = 3 Then i = i + 1
End If
If Cellule.Interior.ColorIndex = 15 Then
If Cellule.Font.ColorIndex = 5 Then x = x + 1
End If
Next
MsgBox "Il y a : " & i & " Donnée(s) rouge: " & " et " & x & " Donnée(s) bleu" & " sur fond gris"
End Sub
A+
Mike-31
Un problème sans solution est un problème mal posé (Einstein)
Vite fait, regardes ce code, la plage à traitée est nommée pour l'exemple tableau
ou modifies cette ligne en donnant la plage
For Each Cellule In Range("A1:A30")
Sub CompteCellules()
Dim Tabl As Range
Dim x As Long
Dim i As Long
Dim Cellule As Variant
i = 0
x = 0
For Each Cellule In Range("Tableau")
If Cellule.Interior.ColorIndex = 15 Then
If Cellule.Font.ColorIndex = 3 Then i = i + 1
End If
If Cellule.Interior.ColorIndex = 15 Then
If Cellule.Font.ColorIndex = 5 Then x = x + 1
End If
Next
MsgBox "Il y a : " & i & " Donnée(s) rouge: " & " et " & x & " Donnée(s) bleu" & " sur fond gris"
End Sub
A+
Mike-31
Un problème sans solution est un problème mal posé (Einstein)
Re-bonsoir,
Eriiiic : Merci d'avoir pris un peu de temps pour me répondre.
Mike : Merci également pour ta réponse, j'ai pu tester le code que tu m'as donné, il va me servir pour savoir le total de critère obligatoire et facultatif. Merci également d'avoir mis les codes couleurs correspondant précisément à ma demande ;-)
Cependant ma vraie question (peut être que je ne l'ai pas suffisamment bien formulée) était de pouvoir calculer la somme du contenu des cellules à fonds gris + police rouge et la somme du contenu des cellules à fonds gris + police bleu....
si jamais je n'abuse pas trop, aurais tu quelques pistes ?
de mon côté j'essaie de continuer mes recherches, c super intéressant les macros et tout ce codage....
Merci encore pour les réponses
Aurélie
Eriiiic : Merci d'avoir pris un peu de temps pour me répondre.
Mike : Merci également pour ta réponse, j'ai pu tester le code que tu m'as donné, il va me servir pour savoir le total de critère obligatoire et facultatif. Merci également d'avoir mis les codes couleurs correspondant précisément à ma demande ;-)
Cependant ma vraie question (peut être que je ne l'ai pas suffisamment bien formulée) était de pouvoir calculer la somme du contenu des cellules à fonds gris + police rouge et la somme du contenu des cellules à fonds gris + police bleu....
si jamais je n'abuse pas trop, aurais tu quelques pistes ?
de mon côté j'essaie de continuer mes recherches, c super intéressant les macros et tout ce codage....
Merci encore pour les réponses
Aurélie
Re,
il serait bon que tu précises si tes couleurs sont mises manuellement ou par une mise en forme conditionnelle.
Quand on lit les cellules qui m'intéressent deviennent grisées on a l'impression que c'est automatique...
Pour avoir la somme remplace i = i + 1 par i = i + Cellule.value
Pareil pour x=...
eric
il serait bon que tu précises si tes couleurs sont mises manuellement ou par une mise en forme conditionnelle.
Quand on lit les cellules qui m'intéressent deviennent grisées on a l'impression que c'est automatique...
Pour avoir la somme remplace i = i + 1 par i = i + Cellule.value
Pareil pour x=...
eric
Bonsoir,
Je ne pense pas avoir le temps de travailler là dessus mais pour les suivants il serait bon que tu précises si tes couleurs sont mises manuellement ou par une mise en forme conditionnelle.
Si c'est le 2nd cas c'est plus simple de réutiliser tes critères de MFC pour faire la somme.
Et tant qu'on y est dépose un fichier exemple sur cijoint.fr (et colle ici le lien fourni) ça évitera un échange de questions-réponses
eric
Je ne pense pas avoir le temps de travailler là dessus mais pour les suivants il serait bon que tu précises si tes couleurs sont mises manuellement ou par une mise en forme conditionnelle.
Si c'est le 2nd cas c'est plus simple de réutiliser tes critères de MFC pour faire la somme.
Et tant qu'on y est dépose un fichier exemple sur cijoint.fr (et colle ici le lien fourni) ça évitera un échange de questions-réponses
eric
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonsoir,
Dsl de taper l'incruste, mais j'ai du mal à garder ça pour moi.
Aurélie, as-tu pris la peine d'essayer de comprendre et d'interpréter le code de Mike-31.
La réponse de ton post #3 est dans le code. Tu as tous les éléments pour faire ce que tu veux.
Où est la difficulté pour toi ?
;o)
Dsl de taper l'incruste, mais j'ai du mal à garder ça pour moi.
Aurélie, as-tu pris la peine d'essayer de comprendre et d'interpréter le code de Mike-31.
La réponse de ton post #3 est dans le code. Tu as tous les éléments pour faire ce que tu veux.
Où est la difficulté pour toi ?
;o)
Eriiic,
Désolée d'avoir omis la demande de précisions... donc pour mes couleurs de police (bleu et rouge) elles sont saisies manuellement et ne seront pas amenées à changer.
Pour ce qui est du "grisage" de la cellule je l'effectue moi même à l'aide du macro crée, avec un double clique je choisis de la griser.
Enfin encore une fois merci à Mike et toi, car mon problème est résolu, j'ai bien la possibilité d'additionner les chiffres rouges grisés et les bleus grisés.
Sur ce je vous souhaite une bonne nuit,
et bonne continuation sur ce forum vraiment génial (je reviendrai...)
Aurélie une assistante ravie !
Désolée d'avoir omis la demande de précisions... donc pour mes couleurs de police (bleu et rouge) elles sont saisies manuellement et ne seront pas amenées à changer.
Pour ce qui est du "grisage" de la cellule je l'effectue moi même à l'aide du macro crée, avec un double clique je choisis de la griser.
Enfin encore une fois merci à Mike et toi, car mon problème est résolu, j'ai bien la possibilité d'additionner les chiffres rouges grisés et les bleus grisés.
Sur ce je vous souhaite une bonne nuit,
et bonne continuation sur ce forum vraiment génial (je reviendrai...)
Aurélie une assistante ravie !
Salut tous,
Merci à Eriiic et mon voisin Polux 31, pour avoir pris le relais pendant que je commençais ma nuit.
Aurelie, il serait bien que tu deviennes membre du Forum, ça te permettrai de facilitées comme mettre ton statut en résolu, dans ton cas pour le faire clic sur le triangle jaune en haut de ton post et demande à la modération de le faire pour toi
A+
Mike-31
Un problème sans solution est un problème mal posé (Einstein)
Merci à Eriiic et mon voisin Polux 31, pour avoir pris le relais pendant que je commençais ma nuit.
Aurelie, il serait bien que tu deviennes membre du Forum, ça te permettrai de facilitées comme mettre ton statut en résolu, dans ton cas pour le faire clic sur le triangle jaune en haut de ton post et demande à la modération de le faire pour toi
A+
Mike-31
Un problème sans solution est un problème mal posé (Einstein)
