Copy d'une ligne de tableau
Salut à tous !
J'ai la quelques petits soucis. Alors, d'abord j'aimerais savoir s'il y a possibilite de faire l'equivalent d'un "tant que" en C. Quelque chose qui me permettrait de dire que par exemple :
tant que B1=A, B2=1
Ensuite, j'aimerais, partant d'un tableau, copier le dernier element (la derniere ligne), le End(xlDown) si vous voulez. Le probleme c'est que la fonction copy me demande systematiquement un "Range" alors que je veux la derniere ligne...
Voyez la ligne de code :
Worksheets("liste").Range("A668").Copy _ Destination:=Worksheets("Suivi_vehicules").Range("A10")
Ce qui est en rouge me gene, j'aimerais le remplacer par quelque chose comme : End(xlDown), que j'ai bien evidemment, essayé !
Merci pour votre aide !
hello
1/ peux-tu changer le titre de ton message, il est incompréhensible
2/ en cellule B2 =SI(B1="A" ; 1 ; mettreicilavaleurquandB1différentdeA)
3/ pas d'idée, sauf qu'il serait bien de faire un second fil de discussion, car trop différent de la premère question.
Salut Sté, Jmd,
Moi c'est le début de la question que je n'ai pas compris...
Pour le dernier point, essaye avec :
Worksheets("liste").Range("A1").End(xlDown).Copy _
Worksheets("Suivi_vehicules").Range("A10")Edit : ce sera la dernière cellule non vide de la colonne A, en partant de A1 et en s'arrêtant au premier vide.
Si tu veux la dernière cellule utilisée sans tenir compte des vides, alors tu pars du bas et tu remontes : Worksheets("liste").Range("A65536").End(xlUp).Copy
Re-Edit : Salut CB60, même idée
Bonsoir
Une réponse:
Sub essai()
Worksheets("feuil1").Range("A65536").End(xlUp).Copy Destination:=Worksheets("feuil2").Range("A10")
End Sub
Edit
Bonsoir Sylvain
Merci bien, pour le coup j'ai effectivement fait l'inverse, en partant de la derniere ligne pour afficher la premiere ecrite et ça marche !
Cela dit, par contre, lorsque je le demande plusieurs fois de suite, il ne passe pas a la ligne suivante dans la page "suivi_vehicules". J'ai tenté le End(xlDown) en partant de A1 mais j'obtiens pas la bonne chose.
please help...