didrocks
Messages postés73Date d'inscriptionsamedi 11 janvier 2003StatutMembreDernière intervention17 décembre 2007
-
2 juin 2005 à 16:42
valtrase
Messages postés937Date d'inscriptionlundi 19 janvier 2004StatutMembreDernière intervention 9 mai 2022
-
3 juin 2005 à 10:49
Bonjour
Je voudrais, pour pouvoir manipuler plus facilement mes cellules dans des boucles, changer l'adresse de ma plage de cellule afin d'avoir les numéros des colonnes (1 2 3 ...) au lieu d'avoir les noms (A B C ...)
En effet, l'objet UsedRange.Address m'envoie une adresse du type $A$1:$B$6
valtrase
Messages postés937Date d'inscriptionlundi 19 janvier 2004StatutMembreDernière intervention 9 mai 20223 2 juin 2005 à 19:13
Houlala .....
Bon si tu veux faire une boucle entre A1 et F1 par exemple
For i% = [A1].Column To [F1].Column
Cells(1, i%).Value = "Param" & i%
Next
Tou ça pour dire que tu peux utiliser Column et Row pour avoir le num de tes colonnes et lignes
valtrase
Messages postés937Date d'inscriptionlundi 19 janvier 2004StatutMembreDernière intervention 9 mai 20223 3 juin 2005 à 10:49
Re,
' encore un peu plu loing.....
' L'objet Range peu se manipuler de plusieurs manières
' Pour exemple ce code
Dim iFor i 1 To 10: Cells(i, 1) i: Cells(1, i) = i: Cells(i, i) = i: Next
MsgBox "Une ligne et plusieurs colonnes"
With ActiveSheet.UsedRange
For i = .Cells(1, 1).Column To .Columns.Count
.Cells(1, i).Value = .Cells(1, i).Value & " P" & i
Next
End With
' en effet .Cells(1,1).column représente la première colonne
' de UsedRange et column.count la dernière
' Si tu veux parcourir toutes les cellules de ton UsedRange
' Utilises For Each
' Exemple
MsgBox "Utilisation de For Each"
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
cell.Value = Val(Right(cell.Value, 1)) * 100
Next