titil64
Messages postés67Date d'inscriptiondimanche 25 avril 2004StatutMembreDernière intervention 5 février 2007
-
17 janv. 2007 à 10:05
titil64
Messages postés67Date d'inscriptiondimanche 25 avril 2004StatutMembreDernière intervention 5 février 2007
-
17 janv. 2007 à 11:08
Bonjour
voila mon probleme ,
je cherche a rentrer mes donner d'une textbox dans la derniere ligne d'un tableur excel
Voila ce que je fait mais je ne trouve po de condition d'arret
Dim i As Integer
Sheets("Screen").Range("A1").Select
For i = 1 To 22
If Cells(i, 1) = "" Then
Cells(i, 1) = TextBox1
End If
Next i
en fait il parcours toutes les lignes et m'inscrit "textbox1" dans toutes les lignes vides et non pas dans seulement la derniere
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 201440 17 janv. 2007 à 11:05
En reprennat ton code et en partant de la fin :
'Recherche de la première cellule non vide depuis la
fin
For i = 22 To 1 Step -1
If Cells(i, 1) <> "" Then
' Première cellule non vide : on rempli la cellule d'en
dessous
Cells(i + 1, 1) = TextBox1
Exit For ' et sort de la boucle, le
travail est fini
End If
Next i
---- Sevyc64 (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
titil64
Messages postés67Date d'inscriptiondimanche 25 avril 2004StatutMembreDernière intervention 5 février 2007 17 janv. 2007 à 10:49
Comment commence par la fin dsl je ne suis po trés doué
voila le resultat qui me rend
<colgroup><col style=\"WIDTH: 155pt; mso-width-source: userset; mso-width-alt: 7533\" width=\"206\" /></colgroup>----
,n,jh >>>>>> 1er ligne , ----
bfgb>>>>>>>> 2nd ligne
, ----
kjhg>>>>>>>3 eme ligne (il commence ici mais la suite je n'en veux po ), ----
kjhg, ----
kjhg, ----
kjhg, ----
kjhg, ----
kjhg, ----
kjhg
Vous n’avez pas trouvé la réponse que vous recherchez ?