Range("A1000").End(xlUp).Cells(1, 3)

Evelynetfrancois · 27 Octobre 2006

BONJOUR à vous tous !!

Range("A1000").End(xlUp).Cells(1, 3) = TextBox3

Le contenu de la TextBox3 est collé dans la colonne C en face de la dernière valeur saisie en colonne A
Mon problème est que la colonne (A2 ; A1000 ) est en liaisons avec une autre Feuille :
et n’est pour le moment remplie que jusqu en <> A 450

Donc cette ligne de macro recherche la dernière valeur de la colonne A….. et trouve A1000 !!!!!( à cause des liaisons )
Et donc me colle le TextBox3 en en C1000

Les cellules sont pourtant vide de saisies , mais contiennent une formule
Est il possible de contourner ce problème ??

Je vous remercie d’avance pour toutes vos sujétions

E et F

Jacques87 · 27 Octobre 2006

Re : Range("A1000").End(xlUp).Cells(1, 3)

Bonsoir E et F,

Et si tu tentais une boucle u genre :

For i = 1 to 65536
If Range("A" & i) = "" Then
l=i
Exit For
End If
Next i
Range("A" & l).Value = TextBox3.value

Je dis peut être des bétises faute de pouvoir essayer, mais sait-on jamais

Amicalement

Evelynetfrancois · 27 Octobre 2006

Re : Range("A1000").End(xlUp).Cells(1, 3)

Super Jacques87 ca marche au poil !!

For i = 1 to 1000
If Range("A" & i) = "0" Then ' puisque la liason donne "0"que je ne voyais pas car j avais décocher valeur 0 dans les options de la feuille
l=i
Exit For
End If
Next i
Range("A" & l).offset(-1,2) = TextBox3.value' et enfin offset pour me retrouver en face de la derniere valeur saisie et décaler de 2 cells à droite c'est à dire en colonne "C"

je te remercie beaucoup pour ce super coup de main !
bonne soirée

E et F

Range("A1000").End(xlUp).Cells(1, 3)

Evelynetfrancois

XLDnaute Impliqué

Jacques87

XLDnaute Accro

Evelynetfrancois

XLDnaute Impliqué

Discussions similaires

Range("A1000").End(xlUp).Cells(1, 3)

Evelynetfrancois

XLDnaute Impliqué

Jacques87

XLDnaute Accro

Evelynetfrancois

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency