ajouter une valeur à la valeur d'une cellule Résolu

Question

Bonjour, 

Bonjour,
Je souhaiterai grâce à un bouton commande (ENREGISTRER) ajouter les valeurs (nombres) de ma listbox (zn2) à des cellules de ma feuille de calcule.
Ces cellules contenant déjà des valeur.
mon code est le suivant:

Private Sub enrg1_Click()
For i = 2 To 59
If zn1.value= Cells(i, 1) Then
Cells(i, 2) = Cells(i, 2) - zn2.value
End If
Next
CLIENTS.Hide
End Sub

avec ce code l'action se fait mais seulement pour l'élément sélectionné dans la liste pas tour tout ceux qui s'y trouve ....

Merci de m'aider si vous le pouvez, cela m'aidera énormément
CDLT 

Configuration: Windows 7 / Firefox 20.0

pijaku · Answer

Bonjour,  

Essaie :  
Adapter : nom de la feuille, + 1 dans Lign + 1 le cas échéant...

Private Sub enrg1_Click()  
Dim Donnees(), i As Integer, Lign  

'on remplit notre Array avec les valeurs de la feuille colonne A  
Donnees = Sheets("Feuil1").Range("A2:A59").Value  

'on boucle sur toutes les valeurs de la liste zn1  
For i = 0 To zn1.ListCount - 1  
    'Application.Match renvoie une erreur si pas de correspondance  
    Lign = Application.Match(zn1.List(i), Donnees, 0)  
    'donc si pas erreur, résultat trouvé, ligne Lign+1 (car on commence en A2)  
    If Not IsError(Lign) Then  
        Cells(Lign + 1, 2) = Cells(Lign + 1, 2) - CInt(zn2.List(i))  
    End If  
Next i  
End Sub  
   
   
Cordialement,  
Franck P

leyjah · Answer

Je te remercie beaucoup Franck P,
Ça marche parfaitement.

CDLT

Ajouter une valeur à la valeur d'une cellule

2 réponses

Discussions similaires

Newsletters