Bonsoir,
Je reviens vers les pro du monde Excel, qui sont une sacré référence
Grace à vous, j'ai pu installer une macro qui reporte le dernier chiffre d'une ligne dans une cellule, et ce pour toutes les lignes de la feuille (à partir de la 10è ligne).
Cela sert à mettre dans une colonne à coté du nom du membre, où il en est dans son abonnement.
Mais j'ai du modifier les dernières colonnes de la feuille et depuis la macro bug désespérément sur : Set plage = Range(Cells(10, y), Cells(10 + z - x, y + zz))
Pourriez vous m'éclairer ?
Tout grand merci
Jean-Luc
Si nécessaire je peux vous mettre une copie de la feuille.
Mais en attendant voici le code de la macro en entier :
Sub test3()
Dim plage As Range
ActiveSheet.UsedRange.Select
x = Selection.Row
y = Selection.Column
z = Selection.Rows.Count
zz = Selection.Columns.Count
Set plage = Range(Cells(10, y), Cells(10 + z - x, y + zz))
plage.Select
If Range("F65536").End(xlUp).Row > 9 Then
Range("F10:F" & Range("F65536").End(xlUp).Row).ClearContents
End If
For n = Selection.Row To Selection.Row + Selection.Rows.Count
If Cells(n, 256).End(xlToLeft).Column > 4 + Selection.Column Then
Cells(n, 256).End(xlToLeft).Copy Destination:=Cells(n, "F")
End If
Next n
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Je reviens vers les pro du monde Excel, qui sont une sacré référence
Grace à vous, j'ai pu installer une macro qui reporte le dernier chiffre d'une ligne dans une cellule, et ce pour toutes les lignes de la feuille (à partir de la 10è ligne).
Cela sert à mettre dans une colonne à coté du nom du membre, où il en est dans son abonnement.
Mais j'ai du modifier les dernières colonnes de la feuille et depuis la macro bug désespérément sur : Set plage = Range(Cells(10, y), Cells(10 + z - x, y + zz))
Pourriez vous m'éclairer ?
Tout grand merci
Jean-Luc
Si nécessaire je peux vous mettre une copie de la feuille.
Mais en attendant voici le code de la macro en entier :
Sub test3()
Dim plage As Range
ActiveSheet.UsedRange.Select
x = Selection.Row
y = Selection.Column
z = Selection.Rows.Count
zz = Selection.Columns.Count
Set plage = Range(Cells(10, y), Cells(10 + z - x, y + zz))
plage.Select
If Range("F65536").End(xlUp).Row > 9 Then
Range("F10:F" & Range("F65536").End(xlUp).Row).ClearContents
End If
For n = Selection.Row To Selection.Row + Selection.Rows.Count
If Cells(n, 256).End(xlToLeft).Column > 4 + Selection.Column Then
Cells(n, 256).End(xlToLeft).Copy Destination:=Cells(n, "F")
End If
Next n
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Dernière édition: