Bonjour,
j'aui besoins de votre aide svp.
je souhaiterai, grâce à un bouton de commande (ENREGISTRER), ajouter des valeurs (nombre) affecté à une listbox (zn2) , aux cellules correspondantes.
Ces cellules sur une feuille de calcul.
Pour cela, mon code à été 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
cependant, n'est pris en considération que la valeur de la ligne sélectionné
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
leyjah
Le vendredi 19 Avril 2013 à 21:41 par leyjah :
Bonjour, j'aui besoins de votre aide svp. je souhaiterai, grâce à un bouton de commande (ENREGISTRER), ajouter des valeurs (nombre) affecté à une listbox (zn2) , aux cellules correspondantes. Ces cellules sur une feuille de calcul. Pour cela, mon code à été 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
cependant, n'est pris en considération que la valeur de la ligne sélectionné
merci d'avance pour l'aide que vous m’apporterai
CDLT
j'ai trouver une solution..
Private Sub enrg1_Click() Dim Donnees(), i As Integer, Lign Donnees = Sheets("Feuil1").Range("A2:A59").Value For i = 0 To zn1.ListCount - 1 Lign = Application.Match(zn1.List(i), Donnees, 0) If Not IsError(Lign) Then Cells(Lign + 1, 2) = Cells(Lign + 1, 2) - CInt(zn2.List(i)) End If Next i End Sub
SI CA PEUT AIDER QUELQU'UN
Le vendredi 19 Avril 2013 à 21:41 par leyjah :
Bonjour,
j'aui besoins de votre aide svp.
je souhaiterai, grâce à un bouton de commande (ENREGISTRER),
ajouter des valeurs (nombre) affecté à une listbox (zn2) , aux
cellules correspondantes.
Ces cellules sur une feuille de calcul.
Pour cela, mon code à été 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
cependant, n'est pris en considération que la valeur de la ligne
sélectionné
merci d'avance pour l'aide que vous m’apporterai
CDLT
j'ai trouver une solution..
Private Sub enrg1_Click()
Dim Donnees(), i As Integer, Lign
Donnees = Sheets("Feuil1").Range("A2:A59").Value
For i = 0 To zn1.ListCount - 1
Lign = Application.Match(zn1.List(i), Donnees, 0)
If Not IsError(Lign) Then
Cells(Lign + 1, 2) = Cells(Lign + 1, 2) - CInt(zn2.List(i))
End If
Next i
End Sub
Bonjour, j'aui besoins de votre aide svp. je souhaiterai, grâce à un bouton de commande (ENREGISTRER), ajouter des valeurs (nombre) affecté à une listbox (zn2) , aux cellules correspondantes. Ces cellules sur une feuille de calcul. Pour cela, mon code à été 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
cependant, n'est pris en considération que la valeur de la ligne sélectionné
merci d'avance pour l'aide que vous m’apporterai
CDLT
j'ai trouver une solution..
Private Sub enrg1_Click() Dim Donnees(), i As Integer, Lign Donnees = Sheets("Feuil1").Range("A2:A59").Value For i = 0 To zn1.ListCount - 1 Lign = Application.Match(zn1.List(i), Donnees, 0) If Not IsError(Lign) Then Cells(Lign + 1, 2) = Cells(Lign + 1, 2) - CInt(zn2.List(i)) End If Next i End Sub
