Emplir feuil selon condition à partir d'une cellule et augmenter
Résolu
lanetmel
Messages postés
200
Date d'inscription
Statut
Membre
Dernière intervention
-
lanetmel Messages postés 200 Date d'inscription Statut Membre Dernière intervention -
lanetmel Messages postés 200 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
C'est un problème très simple mais je n'y arrive pas. Voilà : j'ai deux feuilles dans le même classeur
Feuille : Données
Feuille : Facture
Avec un usf, je recherche un donnée de la colonne C de la feuille données (prendre note que cette données se répète à plusieurs reprise.
Je dis : Si la valeur de la Cbox = valeur feuille données colonnne C, aller copier la valeur de la colonne 9 de la feuille données dans la feuille facture à partir de cellule A16, ensuite passer à la ligne suivante dans la feuille données et copier dans la ligne suivante dans la feuille facture.
ça fonctionne sauf la partie de la feuille facture, Je n'arrive pas à faire augmenter de 1.
Aussi ma macro à tendance à ne pas s'arrêter. en mode débogage oui, mais en automatique elle continue sans fin..
voici mon code
Sub cMD_2_CLICK()
Dim lign As Long
Dim ligne As Long
With Sheets("DONNÉES")
For lign = 253 To 260
If .Range("C" & lign) = Cbox_bonliv.Value Then
Sheets("facture").Range("A16") = Sheets("DONNÉES").Cells(lign, 9)
End If
Next lign
End With
End Sub
merci à l'avance de votre aide c'est immensément apprécié.
C'est un problème très simple mais je n'y arrive pas. Voilà : j'ai deux feuilles dans le même classeur
Feuille : Données
Feuille : Facture
Avec un usf, je recherche un donnée de la colonne C de la feuille données (prendre note que cette données se répète à plusieurs reprise.
Je dis : Si la valeur de la Cbox = valeur feuille données colonnne C, aller copier la valeur de la colonne 9 de la feuille données dans la feuille facture à partir de cellule A16, ensuite passer à la ligne suivante dans la feuille données et copier dans la ligne suivante dans la feuille facture.
ça fonctionne sauf la partie de la feuille facture, Je n'arrive pas à faire augmenter de 1.
Aussi ma macro à tendance à ne pas s'arrêter. en mode débogage oui, mais en automatique elle continue sans fin..
voici mon code
Sub cMD_2_CLICK()
Dim lign As Long
Dim ligne As Long
With Sheets("DONNÉES")
For lign = 253 To 260
If .Range("C" & lign) = Cbox_bonliv.Value Then
Sheets("facture").Range("A16") = Sheets("DONNÉES").Cells(lign, 9)
End If
Next lign
End With
End Sub
merci à l'avance de votre aide c'est immensément apprécié.
A voir également:
- Emplir feuil selon condition à partir d'une cellule et augmenter
- Excel cellule couleur si condition texte - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Comment faire une recherche à partir d'une photo - Guide
- Aller à la ligne dans une cellule excel - Guide
- Augmenter vitesse pc windows 10 - Guide
1 réponse
Bonjour,
ceci devrait résoudre le problème
ceci devrait résoudre le problème
--
Sub cMD_2_CLICK()
Dim lign As Long, i As Long
With Sheets("DONNÉES")
i = 0
For lign = 253 To 260
If .Cells(lign, "C") = Cbox_bonliv.Value Then
Sheets("facture").Range("A16").Offset(i) = .Cells(lign, "I")
i = i + 1
End If
Next lign
End With
End Sub
lanetmel
Messages postés
200
Date d'inscription
Statut
Membre
Dernière intervention
4
MERCI BEAUCOUP!!!! C'EST EXACTEMENT ÇA :)
