Incrément d'une ligne chaque fois qu'elle est vide

N

Nairolf

XLDnaute Accro

• 4 Juin 2012

• #2

Re : Incrément d'une ligne chaque fois qu'elle est vide

Salut Michoulu,

D'après ton code, il va toujours trouver une ligne à remplir car ton else est actif à partir du moment que le if est faux.
Je te propose ce code:

Code:

i = 1

for m = 1 to 100
 
If Worksheets("HistoriqueSaisie").Cells(m, 2).Value = "" Then
 
 Worksheets("HistoriqueSaisie").Cells(i, 2).Value = TB1.Value
 Worksheets("HistoriqueSaisie").Cells(i, 3).Value = Désignation
 Worksheets("HistoriqueSaisie").Cells(i, 4).Value = nomfeuille
 Worksheets("HistoriqueSaisie").Cells(i, 5).Value = jour
 Worksheets("HistoriqueSaisie").Cells(i, 6).Value = TB2.Value
 i=i+1

End If

Next

 

Vote positif 0 Vote négatif

M

michoulu

Guest

• 4 Juin 2012

• #3

Re : Incrément d'une ligne chaque fois qu'elle est vide

erf ...

i est forcé à 1 même avec le i = i + 1 la macro remplit uniquement la ligne 1 et repasse dessus ...
Etant donné que je veux un historique il ne faut pas réécrire sur la ligne mais passer à la suivante ...

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 4 Juin 2012

• #4

Re : Incrément d'une ligne chaque fois qu'elle est vide

Bonjour Michoulu, Bonjour Nairolf,

Peux-tu nous fournir un fichier pour que nous ayons une idée du tableau à remplir par la macro ?

 

Vote positif 0 Vote négatif

M

michoulu

Guest

• 4 Juin 2012

• #5

Re : Incrément d'une ligne chaque fois qu'elle est vide

Hmm oui si je peux le supprimer par la suite ...

Il faut cliquer sur la feuille base puis sur boite de dialogue :

au moment où quelqu'un clic sur valider il faut que les données soient saisis dans la feuille Historique ...

Il vaut mieux écrire ici le code que de le modifier dans le classeur sinon je ne m'en sortirais pas :/ 🙁

 

Dernière modification par un modérateur: 4 Juin 2012

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 4 Juin 2012

• #6

Re : Incrément d'une ligne chaque fois qu'elle est vide

Re,

Visiblement tu souhaites écrire à la suite dans la feuille Historique Saisie

Peut-être un truc du genre, alors

Code:

m = Worksheets("HistoriqueSaisie").cells(rows.count,2).end(xlup).row +1

Worksheets("HistoriqueSaisie").Cells(m, 2).Value = TB1.Value
Worksheets("HistoriqueSaisie").Cells(m, 3).Value = Désignation
Worksheets("HistoriqueSaisie").Cells(m, 4).Value = nomfeuille
Worksheets("HistoriqueSaisie").Cells(m, 5).Value = jour
Worksheets("HistoriqueSaisie").Cells(m, 6).Value = TB2.Value

 

Vote positif 0 Vote négatif

M

michoulu

Guest

• 4 Juin 2012

• #7

Re : Incrément d'une ligne chaque fois qu'elle est vide

Du genre du genre ....

Du genre c'est exactement ça.

😛

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 4 Juin 2012

• #8

Re : Incrément d'une ligne chaque fois qu'elle est vide

Re,

penses à éditer ton message avec ton fichier pour retirer ta pièce jointe si elle contient des données confidentielles

 

Vote positif 0 Vote négatif

M

michoulu

Guest

• 4 Juin 2012

• #9

Re : Incrément d'une ligne chaque fois qu'elle est vide

Merci pour ton aide toto j'ai retiré le fichier

A+ bonne soirée

 

Vote positif 0 Vote négatif