Passer des noms de colonnes (A B C ) à des chiffres (1 2 3) dans excel [Résolu]
didrocks
- Messages postés
- 73
- Date d'inscription
- samedi 11 janvier 2003
- Statut
- Membre
- Dernière intervention
- 17 décembre 2007
- Messages postés
- 936
- Date d'inscription
- lundi 19 janvier 2004
- Statut
- Membre
- Dernière intervention
- 17 mars 2017
A voir également:
- 1 2 3 abc
- Système de protection des pages d'un site par mot de passe et nom d'utilisateur (comptes multiples p - Codes sources - PHP (Sécurité & Cryptage)
- Programmer avec transact-sql : passer le nom d'une table en parametre - Codes sources - SQL (Procédure)
- Erreur : Nom de colonne non valide pourtant c'est le bon nom. ✓ - Forum - SQL
- Instruction For...Next pour passer à la prochaine colonne ✓ - Forum - VBA Office (Excel, Word ...)
- Creation etat à partir de 15 tables avec des noms de colonnes différents ✓ - Forum - VB.NET
7 réponses
Meilleure réponse
- Messages postés
- 936
- Date d'inscription
- lundi 19 janvier 2004
- Statut
- Membre
- Dernière intervention
- 17 mars 2017
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
Cordialement, Jean-Paul
______________________________________________________________________
Le Savoir n'a de valeur que s'il est partagé
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
Cordialement, Jean-Paul
______________________________________________________________________
Le Savoir n'a de valeur que s'il est partagé
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
126 internautes nous ont dit merci ce mois-ci
- Messages postés
- 936
- Date d'inscription
- lundi 19 janvier 2004
- Statut
- Membre
- Dernière intervention
- 17 mars 2017
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
Cordialement, Jean-Paul
______________________________________________________________________
Le Savoir n'a de valeur que s'il est partagé
' 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
Cordialement, Jean-Paul
______________________________________________________________________
Le Savoir n'a de valeur que s'il est partagé
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
126 internautes nous ont dit merci ce mois-ci
- Messages postés
- 94
- Date d'inscription
- samedi 22 février 2003
- Statut
- Membre
- Dernière intervention
- 27 juin 2006
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 !! ********/
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 !! ********/
