Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Pb macro (valider ou non cellule)

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

MelissaJoubert

XLDnaute Junior
Bonjour à tous !!

J'ai à nouveau besoin de votre aide pour la création d'un macro 😀

Je vous envoi mon fichier excel pour que vous compreniez mieux 🙂
(je vous conseil de l'ouvrir avant de lire la suite sinon vous allez rien comprendre je pense )

On va se préoccuper seulement de l'onglet "feuil1".
J'aimerai que lorsque je coche la case, le PU dans le tableau correspondant ne se compte pas dans le PU moyen "I6".

Exemple:
Si je coche la case du premier tableau "C14", le PU de la case " I13" ne va pas se comptabilisé dans mon PU moyen situé en I6.

J'espere que vous comprenez mon problème 😛

Par contre en I6 j'ai mis une formule simple mais il me faudrait également un macro pour toujours m'ajouter les données rempli dans les cases PU car dans ma page je vais rajouter des petits tableaux donc il faudrait que mes prix s'ajoute à chanque fois.

Exemple : Si j'ajoute un tableau en cliquant sur "ajouter", quand je vais remplir ma case PU, la valeur que je vais rentrer doit être comptabilisé dans mon PU moyen automatiquement.

Merci à vous j'ai vraiment besoin de votre aide 🙂 !!
 

Pièces jointes

Trier par date Trier par votes
Hello
je vois que tu as changé pas mal de choses.. les fonctions sont devenues des procédures.
et pour la macro calculDateMoyenne, je ne vois nulle part comment tu l'appelles?

VB: 
'a quel moment ce calcul est il lancé? par qui? comment?
Sub CalculDateMoyenne(Target As Range) 'target est censé etre quelle case?

Dim debut As Integer
Dim fin As Integer
Dim datemoyen As Double
Dim ref As Integer
Dim nbredate As Integer
Dim somme As Double

somme = 0
nbredate = 0
debut = Target.Row 'début est sans doute le numéro de ligne de la cellule target..??
fin = debut
ref = 13

While Cells(debut, Target.Column) <> "Date de valeur"
    debut = debut - 1
Wend
debut = debut + 6

While Cells(fin + 9, Target.Column).Interior.Color = RGB(242, 242, 242)  'On rebondis de tableau en tableau jusqu'à tomber sur du gris
    fin = fin + 9
Wend

For i = debut To fin Step 9
    If Cells(i, ref) Then
        nbredate = nbredate + 1
        somme = somme + Cells(i, ref)
    End If
Next i
If nbredate > 0 Then
    Cells(debut - 15, ref - 8) = somme / nbredate 'Saisie dans les bonne cases     si il y a des affaires prises en compte
Else
    Cells(debut - 15, ref - 8) = "" 'Saisie dans les bonne cases
End If
       
End Sub
et force toi à indenter ton code, tu gagneras en lisibilité et facilité de détecter les pb.
Voir commentaires dans le code
 
Vote positif 0 Vote négatif
avec interprétation personnelle...
VB: 
'a quel moment ce calcul est il lancé? par qui? comment?
Sub CalculDateMoyenne(Target As Range) 'target est censé etre quelle case?

Dim debut As Integer
Dim fin As Integer
Dim datemoyen As Double
Dim ref As Integer
Dim nbredate As Integer
Dim somme As Double

somme = 0
nbredate = 0
debut = Target.Row 'début est sans doute le numéro de ligne de la cellule target..??
fin = debut
ref = 13

'on cherche le premier petit tableau du bloc par la détection de "Date de Valeur"
While Cells(debut, Target.Column) <> "Date de valeur"
    debut = debut - 1
Wend
debut = debut + 4

MsgBox Cells(debut, 13)
'on cherche le dernier petit tableau du bloc par la détection d'une cellule grise située dans le bloc suivant"
While Cells(fin + 9, Target.Column).Interior.Color = RGB(242, 242, 242)  'On rebondis de tableau en tableau jusqu'à tomber sur du gris
    fin = fin + 9
Wend

For i = debut To fin Step 9
    If Cells(i, ref) Then 'manque le test?? si il s'agit d'une affaire à prendre en compte ou pas? (. ou ..)
        nbredate = nbredate + 1
        somme = somme + Cells(i, ref)
    End If
Next i
If nbredate > 0 Then
    Cells(debut - 15, ref - 8).Select
    Selection = somme / nbredate 'Saisie dans les bonne cases     si il y a des affaires prises en compte
    Selection.NumberFormat = "m/d/yyyy"
Else
    Cells(debut - 15, ref - 8) = "" 'Saisie dans les bonne cases
End If
       
End Sub
 
Vote positif 0 Vote négatif
Avec ce code, ca devrait fonctionner..
j'ai juste un pb avec le RGB(242,242,242)
selon si je clique sur la date du premier ou second tableau, ca fonctionne ou pas..
VB: 
Sub CalculDateMoyenne(Target As Range) 'target est censé etre quelle case?

Dim debut As Integer
Dim fin As Integer
Dim datemoyen As Double
Dim ref As Integer
Dim nbredate As Integer
Dim somme As Double

somme = 0
nbredate = 0
debut = Target.Row 'début est sans doute le numéro de ligne de la cellule target..??
fin = debut
ref = 13

'on cherche le premier petit tableau du bloc par la détection de "Date de Valeur"
While Cells(debut, Target.Column) <> "Date de valeur"
    debut = debut - 1
Wend
debut = debut + 4

'on cherche le dernier petit tableau du bloc par la détection d'une cellule grise située dans le bloc suivant"
While Cells(fin + 9, Target.Column).Interior.Color = RGB(242, 242, 242) 'On rebondis de tableau en tableau jusqu'à tomber sur du gris
    fin = fin + 9
Wend

For i = debut To fin Step 9
    If Cells(i + 3, 2) = "." Then 'manque le test?? si il s'agit d'une affaire à prendre en compte ou pas? (. ou ..)
        nbredate = nbredate + 1
        somme = somme + Cells(i, ref)
    End If
Next i
If nbredate > 0 Then
    Cells(debut - 15, ref - 8).Select
    Selection = somme / nbredate 'Saisie dans les bonne cases     si il y a des affaires prises en compte
    Selection.NumberFormat = "m/d/yyyy"
Else
    Cells(debut - 15, ref - 8).Select
    Selection = "" 'Saisie dans les bonne cases
End If
       
End Sub
 
Vote positif 0 Vote négatif
Bonjour Vgendron,

J'ai un petit problème sur mon macro,

If Target = "image" Then
Target.Offset(0, 10).Select
ad = Selection.Address
ficimg = Application.GetOpenFilename(".jpg,*.jpg", , "Choisissez l'image")
ActiveSheet.Pictures.Insert(ficimg).Select

With Selection.ShapeRange
.LockAspectRatio = False ' proportions d'origine lorsque vous la redimensionnez
.Top = Range(ad).Top ' haut de la cellule
.Left = Range(ad).Left ' gauche de la cellule
.Height = Range(ad).Height ' hauteur de la cellule
.Width = Range(ad).Width ' largeur de la cellule
End With
With Selection
.PrintObject = True ' l'objet est imprimé en même temps que le document
.Placement = xlMoveAndSize ' manière dont l'objet est lié aux cellules
End With
End If

J'avais ajouter ce macro pour quand je clique sur image a gauche, je vais chercher une image dans mon ordinateur que je place dans la cellule colonne L.

Mais il y a un petit beug, quand il y a la fenetrre qui s'affiche pour aller chercher mon image et quand je ferme cette fenetre sans mettre d'image j'ai un beug dans ma macro ?

Aurais-tu une solution s'il te plait 😀 !
Merci beaucoup
 

Pièces jointes

Vote positif 0 Vote négatif
Hello

il faut ajouter un test sur ficimg
si tu ne selectionnes aucune image, ficimg = false.et donc. le reste du code bug. car il essaie de placer une image qui n'existe pas

modifie le code comme ceci
VB: 
If Target = "image" Then
        Target.Offset(0, 10).Select
        ad = Selection.Address
        ficimg = Application.GetOpenFilename(".jpg,*.jpg", , "Choisissez l'image")
        If ficimg <> False Then
            ActiveSheet.Pictures.Insert(ficimg).Select
   
            With Selection.ShapeRange
                .LockAspectRatio = False        ' proportions d'origine lorsque vous la redimensionnez
                .Top = Range(ad).Top           ' haut de la cellule
                .Left = Range(ad).Left          ' gauche de la cellule
                .Height = Range(ad).Height  ' hauteur de la cellule
                .Width = Range(ad).Width ' largeur de la cellule
            End With
            With Selection
                .PrintObject = True             ' l'objet est imprimé en même temps que le document
                .Placement = xlMoveAndSize      ' manière dont l'objet est lié aux cellules
            End With
        End If
    End If
 
Vote positif 0 Vote négatif
Coucou! Laissons tomber le date moyenne c'est pas grave !
En revanche j'ai un problème car j'aimerai chnger la couleur du gris que j'ai mis lorsque j'appuis sur "." mais quand je change, les mise à jour du calculmoyenne ne marche pas bien et je comprend pas pourquoi ?

Par exemple actuellement j'ai la couleur gris qui est "248,248,248" et j'aimerai mettre un gris un peu plus foncer "242,242,242" donc logiquement en remplacant tout les 248 par 242 ça devrait marcher mais c'est pas le cas 🙁
Aurais tu une explication ??

Merci pour ton aide 😀
 

Pièces jointes

Vote positif 0 Vote négatif
Mais en faite je vois bien la différence sur mon excel quand je change la couleur.
Mais le problème c'est que quand je la change, mon calcul de la moyenne marche plus ? alors que j'ai juste changé la couleur.
Je pense avoir trouver le pb mais je sais pas comment le résoudre,
en faite les 2 cellule O25 et P25 quand je clique sur "." elles restent grise alors qu'elles devraient être blanche. Et quand je veux les mettre blanche ça beug 🙁 je suis bloqué ahah !!
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
123
ChTi160
M
  • Résolu(e)
Autres Liste déroulante et cellule vide
Réponses
13
Affichages
338
Marjo2809
M
C
  • Résolu(e)
XL 2016 Macro masquer certaines lignes en fonction de l'état d'une cellule (vide ou pas)
Réponses
2
Affichages
67
Chris1263
C
D
  • Question Question
Microsoft 365 Code VBA pour date DD/MM/YYYY
Réponses
6
Affichages
299
Staple1600
  • Question Question
Autres comment palier ou accélérer le captage du lparam dan un hooking mousewheel
Réponses
3
Affichages
116
patricktoulon
D
  • Question Question
XL 2019 Boucle For Next and select case
Réponses
2
Affichages
117
dadaze
D
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
266
Phil69970
  • Résolu(e)
Microsoft 365 Problème de formatage de dates au format EUR
Réponses
2
Affichages
155
R1-
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
243
ManuEven
M
  • Résolu(e)
XL 2019 Données ne se mettent pas à jour par Macro, mais Manuellement OUI.
Réponses
8
Affichages
175
sylvanu
M
  • Question Question
XL 2021 Automatiser Changements des plages de données Graphique
Réponses
0
Affichages
104
Michel_ja
M
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
130
Yogean
Y
  • Question Question
XL 2019 Date et mise en forme conditionnelle
Réponses
5
Affichages
731
fanfan38
  • Question Question
Microsoft 365 Plantages runtime incohérents suite à de nombreuses erreurs de runtime ou de compilation
Réponses
7
Affichages
182
oguruma
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
1 K
Webperegrino
W
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
558
job75
S
  • Question Question
Microsoft 365 Transfert de données sur une autre tableau
Réponses
2
Affichages
168
stefane26
S
B
  • Question Question
XL 2019 PB avec fonction rechercheV ou recherche H
Réponses
5
Affichages
190
bruiz
B
W
  • Résolu(e)
XL 2016 Changer la taille, la couleur, la graisse d'une partie du contenu de cellule
Réponses
5
Affichages
189
job75
  • Résolu(e)
XL 2019 Fonction "Find" qui ne fonctionne pas selon le format de cellule
Réponses
12
Affichages
243
Titof06
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…