Ajouter une valeur à la valeur d'une cellule

Résolu/Fermé

leyjah Messages postés 16 Date d'inscription mardi 16 avril 2013 Statut Membre Dernière intervention 24 avril 2013 - 19 avril 2013 à 21:45
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 22 avril 2013 à 15:23

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

A voir également:

Ajouter une valeur dans une cellule excel
Aller à la ligne dans une cellule excel - Guide
Liste déroulante excel - Guide
Verrouiller cellule excel - Guide
Déplacer une colonne excel - Guide
Excel cellule couleur si condition texte - Guide

2 réponses

Réponse 1 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
Modifié par pijaku le 22/04/2013 à 09:25

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

Réponse 2 / 2

leyjah
22 avril 2013 à 15:22

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

CDLT

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
22 avril 2013 à 15:23

De rien.
A+

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

Excel, ajouter un caractère à une cellule

Formule Excel : "SI" une cellule contient un mot, alors ?

Excel : colorer une cellule sous condition d'une autre ?

Discussions similaires

Newsletters