Signaler

Emplir feuil selon condition à partir d'une cellule et augmenter [Résolu]

Posez votre question lanetmel 188Messages postés mercredi 24 août 2011Date d'inscription 10 octobre 2016 Dernière intervention - Dernière réponse le 10 oct. 2016 à 19:14
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é.
Afficher la suite 
Utile
+1
moins plus
Bonjour,

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 188Messages postés mercredi 24 août 2011Date d'inscription 10 octobre 2016 Dernière intervention - 10 oct. 2016 à 19:14
MERCI BEAUCOUP!!!! C'EST EXACTEMENT ÇA :)
Répondre
Ajouter un commentaire

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !