Passer des noms de colonnes (A B C ) à des chiffres (1 2 3) dans excelRésolu

Question

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&#233;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

Avez-vous une id&#233;e?
Merci par avance!
@+

valtrase · Accepted Answer

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 &#231;a pour dire que tu peux utiliser Column et Row pour avoir le num de tes colonnes et lignes

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

juju740 · Answer

cells(numero_de_ligne, numero_de_colonne)
cells(1,1) = range("A1")

Sensei01 · Answer

Sensei01 

ou bien :
dim valeur_hexa as integer  'pour "A" le code hexa est 65
...
...
... .Range (Chr(valeur_hexa) + numero_ligne)

tu met ca dasn une boucle, en faisant varier valeur_hexa et numero_ligne, tu parcours toute les cases  de ton fichier tout en les nommant A1,B4, ...

/******** Sans audance pas de gloire !! ********/

juju740 · Answer

Pour  [auteurdetail.aspx?ID=56908 Sensei01] :

Sans audace pas de gloire mais r&#233;fl&#233;chis un peu &#224; ta solution !! Selon toi, que se passe-t-il pour la colonne AA -> IV ?



/********Sans r&#233;flexion pas de bon conseil********/



;o)

cs_ITALIA · Answer

Fais toi un tableau &#224; 2 dimensions

It@li@

didrocks · Answer

Merci pour toutes ses r&#233;ponses :-)

valtrase · Answer

Re,
'   encore un peu plu loing.....
'   L'objet Range peu se manipuler de plusieurs mani&#232;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&#233;sente la premi&#232;re colonne
'   de UsedRange et column.count la derni&#232;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

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;