J'ai une erreur Range de l'objet Global à échouer ???
JE mouline dans la choucroute sévère
Merci
ci dessous l'ensemble du code
Sub AlignPic()
Dim NomPic As String ' nom de l'image
Dim NumPic As Long ' numéro de l'image
Dim var As Long ' variable de comptage d'evolution de la macro
Dim col As Long ' variable de colonne
Dim Lig As Long ' variable de ligne
Dim i As Integer ' variable de boucle
NumPic = 4
NomPic = "Image " & NumPic ' nom de la première image
Application.ScreenUpdating = False ' blocage du rafraichissement des feuilles pendant la macro
Lig = 4 ' pointeur de cellule
col = 5
Do While NumPic < 1504
var = (NumPic / 1504) * 100 ' calcul de progression de la boucle
Application.StatusBar = "PROGRESSION : " & var & " % : VEUILLEZ PATIENTER" ' progression en % en bas de fenêtre
DoEvents
For i = 1 To 2 ' boucle traitement sur la même ligne
Dim lig As Long, col As Long, NomPic As String
lig = 3: col = 5: NomPic = "Rectangle 1"
With ActiveSheet
.Shapes(NomPic).Top = .Cells(lig, col).Top
End With