Emplir feuil selon condition à partir d'une cellule et augmenter

Résolu/Fermé

lanetmel Messages postés 200 Date d'inscription mercredi 24 août 2011 Statut Membre Dernière intervention 15 mars 2018 - 10 oct. 2016 à 15:58
lanetmel Messages postés 200 Date d'inscription mercredi 24 août 2011 Statut Membre Dernière intervention 15 mars 2018 - 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é.

A voir également:

Emplir feuil selon condition à partir d'une cellule et augmenter
Excel cellule couleur si condition texte - Guide
Aller à la ligne dans une cellule excel - Guide
Recherche à partir d'une image - Guide
Changer la couleur d'une cellule selon son texte - Forum Excel
Excel si cellule contient partie texte ✓ - Forum Excel

1 réponse

Réponse 1 / 1

thev Messages postés 1852 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 23 avril 2024 681
Modifié par thev le 10/10/2016 à 19:02

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 Messages postés 200 Date d'inscription mercredi 24 août 2011 Statut Membre Dernière intervention 15 mars 2018 4
10 oct. 2016 à 19:14

MERCI BEAUCOUP!!!! C'EST EXACTEMENT ÇA :)

Discussions similaires

Annuaire portable gratuit à partir d'un nom

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

Comment trouver un numéro à partir du nom et prénom

Trouver un numero de portable a partir d'un nom svp

Trouver un nom avec une adresse

Discussions similaires

Newsletters