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
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
A voir également:
- Ajouter une valeur dans une cellule excel
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Déplacer une colonne excel - Guide
- Verrouiller une cellule excel - Guide
- Calculer une moyenne sur excel - Guide
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 753
Modifié par pijaku le 22/04/2013 à 09:25
Modifié par pijaku le 22/04/2013 à 09:25
Bonjour,
Essaie :
Adapter : nom de la feuille, + 1 dans Lign + 1 le cas échéant...
Cordialement,
Franck P
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
Je te remercie beaucoup Franck P,
Ça marche parfaitement.
CDLT
Ç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 753
22 avril 2013 à 15:23
22 avril 2013 à 15:23
De rien.
A+
A+