Fonction "cellule non vide" avec condition
Bonjour,
Je crée un bon de commande Excel avec des programmes VBA internes,
Je cherche a copier des valeurs dans un tableau "récapitulatif" se trouvant sur la feuil2 , si le produit est commandé.
Je voudrais créer une condition tel que : "si la ligne du tableau est déja remplie par un produit, copier les information du produit voulu sur la ligne suivante, et ainsi de suite jusqu'a ce que le tableau soit plein".
J'ai essayé d'utiliser la fonction : "If Not isEmpty(Range......) Then"
mais les valeurs se copient qd même dans tout le tableau même si les lignes sont pleines ou vides..
voici une partie du code pour une certaine ligne du tableau :
If Not IsEmpty(Range("D7:I7")) Then
Sheets("Feuil1").Select
Range("E10:I10").Select
Selection.Copy
Sheets("Feuil2").Select
Range("E8:I8").Select
Selection.PasteSpecial Paste:=xlPasteValues
end ifil y a -t- il une manière différente de l'exprimer ? et dans quel ordre dois-je inscrire les commandes pour que chaque condition soit validée ou non et pour que si une certaine ligne du tableau est remplie, que la copie se fasse sur la ligne suivante ?
Merci de votre aide !
Bonjour,
C'est toujours plus facile avec un fichier en exemple pour comprendre où est l'erreur.
Merci
bonjour benibeno,
je ne peux pas transmettre le fichier correspondant, il est trop volumineux ..
mais voici le code je viens d'écrire :
Sub code1()
If Range("I10") > 0 Then
Sheets("recap").Select
If Not IsEmpty(Range("E7:I7")) Then
Sheets("bdc").Select
Range("E10:I10").Select
Selection.Copy
Sheets("recap").Select
Range("E8:I8").Select
Selection.PasteSpecial Paste:=xlPasteValues
Else
Selection.ClearContents
End If
Sheets("bdc").Select
Range("E10:I10").Select
Selection.Copy
Sheets("recap").Select
Range("E7:I7").Select
Selection.PasteSpecial Paste:=xlPasteValues
End If
End Sub
la feuille 1 correspond au bon de commande ("bdc")
la feuille 2 correspond au récapitulatif des commandes ("recap")
en faisant fonctionner le programme, il copie les infos dans les deux plages de cellules mêmes si celles ci sont vide ou pleines..
Merci
Salut,
Si je comprend bien. Lorsque ton tableau récapitulatif est vide tu vas chercher le tableau complet dans l'onglet BDC ?
Sinon, si tu veux aller chercher l'info ligne par ligne tu peux faire une boucle.
Merci
Bonsoir,
J'ai l'impression que tu ne lis pas les conseils...