XL 2010 Pb macro (valider ou non cellule)

[MelissaJoubert]

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 !!

 

[MelissaJoubert]

Voila mon fichier

 

[vgendron]

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?

'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

 

[vgendron]

avec interprétation personnelle...

'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

 

[vgendron]

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..

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

 

[MelissaJoubert]

Bonjour,

Merci pour ton aide !!
J'ai bien fais les changements que tu as fait, mais j'ai un problème

Mon code je ne sais pas où je dois l'appeler ....
J'espere que tu va pouvoir m'aider

 

[MelissaJoubert]

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

 

[vgendron]

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

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

 

[MelissaJoubert]

SUPER !!! ça marche ! Merci beaucoup

 

[MelissaJoubert]

Et pour la date moyenne, j'ai du l'enlever pck ça ne marche pas ....
Tu pourra me le faire en repartant du début ?
Merci beaucoup !

 

[MelissaJoubert]

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

 

[vgendron]

Hello
Peut etre que tes deux codes RGB (248 -->242) sont trop proches pour que tu voies la différence..
regarde sur ce site. ca devrait t'aider à choisir le code RGB qui va bien
http://www.toutes-les-couleurs.com/code-couleur-rvb.php
Clique dans la case située à coté de "Choisir Couleur":
ca va t'ouvrir la palette de couleur
et le code RVB apparait

 

[MelissaJoubert]

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 !!

 

[vgendron]

euh.. dans la macro de calcul.. as tu pensé à modifier ici aussi les codes RGB?

 

[MelissaJoubert]

oui oui j'ai changé les codes RGB partout ..

 

[vgendron]

peux tu envoyer ta dernière version de fichier dans laquelle tu as modifié les index RGB