Pb Addition de cellules

R

Risleure

XLDnaute Occasionnel

• 27 Août 2008

• #2

Re : Pb Addition de cellules

Bonjour GDS35, le Forum

J'ai un résultat en modifiant ton code comme cela

Private Sub CommandButton1_Click()
'Dim CUMKMS As Integer
NBKM = Range("C8").Value
CUMKMS = NBKMS.Value + Sheets("Feuil2").Range("B5").Value
Range("H9") = CUMKMS
End Sub

A+

 

Vote positif 0 Vote négatif

gds35

XLDnaute Impliqué

• 27 Août 2008

• #3

Re : Pb Addition de cellules

Bonjour mon ami et MERCI,
Donc tu as conservé le PUBLIC CUMKMS As Integer et supprimer 'Dim CUMKMS As Integer

Cordialement GDS35

 

Vote positif 0 Vote négatif

R

Risleure

XLDnaute Occasionnel

• 27 Août 2008

• #4

Re : Pb Addition de cellules

Re

J'ai pas trop cherché ni épuré mais en écrivant simplement le code ci dessous dans la feuille 1 tu n'as plus besoin de passer par l'UF.
De plus dans l'UF pour avoir le cumul il vaut mieux utiliser un label.value

A mettre dans la partie code de Feuil1

Private Sub Worksheet_Change(ByVal Target As Range)
Range("H9") = Sheets("Feuil1").Range("C8").Value + Sheets("Feuil2").Range("B5").Value

End Sub

 

Vote positif 0 Vote négatif

gds35

XLDnaute Impliqué

• 27 Août 2008

• #5

Re : Pb Addition de cellules

re salut , je viens de tester ta modif et je tombe en erreur sur :
CUMSKMS = NBKMS.Value + .......
Incompatibilité de type ????

Cordialement GDS35

 

Vote positif 0 Vote négatif

gds35

XLDnaute Impliqué

• 27 Août 2008

• #6

Re : Pb Addition de cellules

Re Re Salut , tu pourrais me renvoyer mon exemple modifié STP , en le visualisant , je comprendrais mieux MERCI.
Amitiés GDS35

 

Vote positif 0 Vote négatif

R

Risleure

XLDnaute Occasionnel

• 27 Août 2008

• #7

Re : Pb Addition de cellules

Voici un premier jet mais tu peux avoir mieux, je regarde
A+

 

Dernière édition: 9 Décembre 2009

Vote positif 0 Vote négatif

gds35

XLDnaute Impliqué

• 27 Août 2008

• #8

Re : Pb Addition de cellules

Re salut , je nage car quand je charge ton ex GDS35 je retombe sur les meme erreurs C'est un Gag , le Code est le meme erreur sur envoi de fichier ????

 

Vote positif 0 Vote négatif

R

Risleure

XLDnaute Occasionnel

• 27 Août 2008

• #9

Re : Pb Addition de cellules

Voici une version avec UF modifiée.

Pour la version précédente je ne comprends pas.
Mais il y a des points de confusion car tu as des variables qui ont le même nom que des objets (exemple la textbox NBKMS à laquelle tu souhaites aussi donner Dim as Interger) ce qui peut facher Excel 😀 d'ou incompatibilité de type.

 

Dernière édition: 9 Décembre 2009

Vote positif 0 Vote négatif

R

Risleure

XLDnaute Occasionnel

• 27 Août 2008

• #10

Re : Pb Addition de cellules

Risleure à dit:

Voici une version avec UF modifiée.

.

Cliquez pour agrandir...

désolé, peut être une erreur de fichier.

 

Pièces jointes

• GD35V2.xls

  34 KB · Affichages: 40

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 27 Août 2008

• #11

Re : Pb Addition de cellules

Bonjour

Juste pour rebondir sur le dernier point soulevé par Risleure. Perso j'ai l'habitude de nommer mes textbox et mes combo etc toujours de la même manière pour eviter d'avoir des variables portant le même nom qu'un textbox

ex : txt_nbkms
txt_cumulkms

cbx_nom (pour un combobox)

lbx_nom (pour une listbox)

etc

 

Vote positif 0 Vote négatif

gds35

XLDnaute Impliqué

• 27 Août 2008

• #12

Re : Pb Addition de cellules

Eh Bien AMIS du forum , Mille Merci , cela fonctionne ds l'exemple a merveille, il me faut maintenent l'incorporer ds mon code ou l'usf a 10 TB differentes , je vais tenter de l'incorporer et vous tenir au corant de l'évolution.
Cordialement GDS35

 

Vote positif 0 Vote négatif

gds35

XLDnaute Impliqué

• 27 Août 2008

• #13

Re : Pb Addition de cellules

Je n'arrive pas a incorporer le code donné par RISLEURE je ne pige pas vs donne un Nx Fichier complet celui la sur ensemble de mon projet
Je suis confus de vs demander de l'aide , j'aimerais m'en sortir seul , mais on se cultive et on apprend que par l'experience des AMIS , apres une étude des résultats fournis . CORDIALEMENT GDS35

 

Pièces jointes

• FD2008GeGe5.xls

  133.5 KB · Affichages: 49

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 30 Août 2008

• #14

Re : Pb Addition de cellules

Bonjour le fil,

Je m'incruste juste pour demander à gds35 s'il a reçu mon MP concernant la rencontre à rennes en octobre... Peut être ne vois tu pas facilement tes Messages Privés si tu n'as pas activé l'alerte dans tes options (tab bord).

Et donc pourras tu nous dire si tu souhaites te joindre à nous (si oui vers quelle heure, besoin hôtel, accompagné ?) et dans ce cas me contacter en privé pour me donner l'heure, et tes coordonnées (mail, portable) ?

Dans le cas contraire, dis le moi également, pour l'organisation.

Pardon pour mon incursion...


Amitiés à tous.

 

Vote positif 0 Vote négatif

gds35

XLDnaute Impliqué

• 2 Septembre 2008

• #15

Re : Pb Addition de cellules

Voila je te joins le fichier

 

Pièces jointes

• KMSPARCOURUS.xls

  14 KB · Affichages: 47

Vote positif 0 Vote négatif