Bonjour a tous,
On ma gentiment donner une forme Vba qui est :
Sub Enjeu()
Dim lig As Long, col As Integer
With Sheets("Résultat")
lig = .Cells(Rows.Count, "A").End(xlUp).Row + 1
.Cells(lig, "A").Value = ActiveSheet.Range("C1").Value
.Cells(lig, "B").Value = Date
col = 4
While ActiveSheet.Cells(7, col + 4) <> ""
.Cells(lig, col + 4).Value = ActiveSheet.Cells(8, col + 4).Value 'synthese
col = col + 1
Wend
End With
Mon soucis c'est quelle me retourne que 5 colonnes sur même ligne et j' en voudrais 8,
j'ai beau chercher je n'arrive pas trouver comment augmenter le nombre de colonnes.
merci a vous
Bien à vous
On ma gentiment donner une forme Vba qui est :
Sub Enjeu()
Dim lig As Long, col As Integer
With Sheets("Résultat")
lig = .Cells(Rows.Count, "A").End(xlUp).Row + 1
.Cells(lig, "A").Value = ActiveSheet.Range("C1").Value
.Cells(lig, "B").Value = Date
col = 4
While ActiveSheet.Cells(7, col + 4) <> ""
.Cells(lig, col + 4).Value = ActiveSheet.Cells(8, col + 4).Value 'synthese
col = col + 1
Wend
End With
Mon soucis c'est quelle me retourne que 5 colonnes sur même ligne et j' en voudrais 8,
j'ai beau chercher je n'arrive pas trouver comment augmenter le nombre de colonnes.
merci a vous
Bien à vous