bonjour a vous tous
j'ai récupéré un fichier sur le net qui est plein de lignes remplie de .select qui me pose a quelques endroits des soucis de suppression donc dans le bloc de code suivant
j'arrive a modifier la première ligne par
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Sheets("Feuil2").Select Range(AdrDebut).Offset(0, 0).Select Selection = "Reference" With Selection .ColumnWidth = 11 .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter With .Font .Size = 10 End With End With
mais pour l'autre sélection je ne sais pas par quoi la remplacer
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 With Sheets("Feuil2") .Range(AdrDebut).Offset(0, 0)= "Reference"
Merci de votre aide, car il y a plein de lignes de codes comme celle la
Pascal
Partager