Incrémenter une base sans écraser les données précédentes...

Re : Incrémenter une base sans écraser les données précédentes...

Re Lololola, le Forum

Voici un petit bout de code à mettre dans ThisWorBook pour repèrer la dernière ligne

Private Sub Workbook_Open()
Dim Derligne As Long
'Repère le n° de première ligne vide de la feuille courante
Derligne = ActiveSheet.Range("$B$65536").End(xlUp).Offset(1, 0).Row
.....

End sub

Re : Incrémenter une base sans écraser les données précédentes...

Merci de l'info est ce que je le positionne comme cela ???
Par contre j'ai l'impression que selectionne pas la feuille en question avec ta méthode...

Wend

Private Sub Workbook_Open()
Dim Derligne As Long
'Repère le n° de première ligne vide de la feuille courante
Derligne = ActiveSheet.Range("$B$65536").End(xlUp).Offset(1, 0).Row


f2 = 2
While Worksheets("Feuil2").Range("A" & f2).Value <> ""
Worksheets("Feuil2").Range("A" & f2).Value = ""
Worksheets("Feuil2").Range("B" & f2).Value = ""
Worksheets("Feuil2").Range("C" & f2).Value = ""
Worksheets("Feuil2").Range("d" & f2).Value = ""

f2 = f2 + 1

Wend



f1 = 2
f2 = 2
'boucle balayant fEUIL1 tant qu'il reste des valeurs
While Worksheets("fEUIL1").Range("A" & f1).Value <> ""



If Worksheets("FEUIL1").Range("A" & f1).Value <> "" Then
Worksheets("Feuil2").Range("A" & f2).Value = CStr(Worksheets("FEUIL1").Range("A" & f1).Value)
Worksheets("Feuil2").Range("B" & f2).Value = CStr(Worksheets("FEUIL1").Range("B" & f1).Value)
Worksheets("Feuil2").Range("C" & f2).Value = CStr(Worksheets("FEUIL1").Range("C" & f1).Value)
Worksheets("Feuil2").Range("D" & f2).Value = CStr(Worksheets("FEUIL1").Range("D" & f1).Value)
f2 = f2 + 1
End If

f1 = f1 + 1


Wend

Re : Incrémenter une base sans écraser les données précédentes...

Désolé Lololala

Mais je ne comprends pas ton souhait ou plutot F2=2 .... F1=2 ... ????

Le code te permet de trouver la 1ère ligne vide dans la feuille où tu souhaites coller tes données,

Imagine que tu as ta sélection faite, tu trouves la 1ère ligne libre et tu colles.

Remplace ("$B$65536 par ("$A$65536 comme cela tu la cellule active sera en colonne A

Re : Incrémenter une base sans écraser les données précédentes...

Bonsoir,

Autre code (si j'ai compris).