Archivage sur plusieurs Feuilles

[Photosol]

bonjour à tous,

J'ai un petit soucis avec de l'archivage,
J'ai créer un userform et des text box pour remplir des cases.

En Feuille 1, aucun soucis, mes trois text box inscrive bien en case voulu les infos,
si la case est vide, il passe à celle d'en dessous et ainsi de suite,

Je voudrais cependant qu'en Feuille 2 et 3 la textBox1 donne sa valeur à la première case de la colonne A qui est non vide.

Cela marche très bien dans la feuille 1,
Cependant en Feuille 2 et 3, La text box réécrit sur les cellules pleines,
en fait la formule ne prend pas en compte si la cellule est vide ou pas.

pouvez vous m'aider?

PS: en Pj le fichier, ce sera beaucoup plus simple pour comprendre mon problème.

 

[laurent950]

Re : Archivage sur plusieurs Feuilles

Bonjour Photosol,

J'ai repris la macro différemment de manière plus simple car la dernière ligne générer par la texte box es réécrite dans les feuilles 2 3 et 4

Je ne sais pas si cela correspond mais c'est peut être un début

Si vous voulais une boucle je pense qu'il vaudrait mieux la construire différemment, je peux vous aider si vous souhaiter.

=====>>>>> J'ai un doute sur le code avec With / end With <<<<<< ============

Le Code :

Private Sub CommandButton1_Click()

Sheets("Feuil1").Activate

fin = Range("A65536").End(xlUp).Row

With Sheets("Feuil2")
Cells(fin + 1, 1) = UserForm1!TextBox1
finA = .Range("A65536").End(xlUp).Row + 1
.Cells(finA, 1).Value = UserForm1!TextBox1
End With

With Sheets("Feuil3")
Cells(fin + 1, 2) = UserForm1!TextBox2
finB = .Range("A65536").End(xlUp).Row + 1
.Cells(finB, 1).Value = UserForm1!TextBox2
End With

With Sheets("Feuil4")
Cells(fin + 1, 3) = UserForm1!TextBox3
finC = .Range("A65536").End(xlUp).Row + 1
.Cells(finC, 1).Value = UserForm1!TextBox3
End With

UserForm1!TextBox1 = ""
UserForm1!TextBox2 = ""
UserForm1!TextBox3 = ""

UserForm1.Hide

End Sub

Au plaisir

Laurent

 

[Yaloo]

Re : Archivage sur plusieurs Feuilles

Bonsoir Photosol, Laurent,

Avec un code plus court :

Private Sub CommandButton1_Click()
i = Feuil1.Cells(65536, 1).End(xlUp).Row + 1
j = Feuil2.Cells(65536, 1).End(xlUp).Row + 1
k = Feuil3.Cells(65536, 1).End(xlUp).Row + 1

Feuil1.Cells(i, 1) = TextBox1
Feuil2.Cells(j, 1) = TextBox1
Feuil3.Cells(k, 1) = TextBox1
Feuil1.Cells(i, 2) = TextBox2
Feuil1.Cells(i, 3) = TextBox3

TextBox1 = "": TextBox2 = "": TextBox3 = ""

Unload Me

End Sub

A+

 

[Photosol]

Re : Archivage sur plusieurs Feuilles

Ca marche parfaitement.
Merci à tous!!