Discussion :

[doctor_vai]

Hello,

Je bloque au niveau de la réalisation d'une boucle (étant novice en vba). En fait, la boucle que je veux réaliser, ne doit s'appliquer que sur des colonnes précises, j'ai pas mal essayer mais je n'y arrive pas. Quelqu'un à une idée ?

Milles Merciiiiiiiii

[Philippe Tulliez]

Bonjour,
Une solution parmi d'autres
Voici une exemple d'une procédure dont on passe comme arguments la plage et le n° de colonne sur laquelle la boucle doit être effectuée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Boucle(DataBase As Range, NumCol As Integer)
 Dim r As Long
 With DataBase
  For r = 2 To .Rows.Count
   ' Ici lecture sur la colonne NumCol 
   msgbox .Cells(r, NumCol) 
  Next
 End With
End Sub

Exemple pour appeler la procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub TestBoucle()
 ' Rng représente la plage commencant en cellule A1 de la feuille nommée db
 Dim rng As Range: Set rng = ThisWorkbook.Worksheets("db").Range("A1").CurrentRegion
 Boucle rng, 2 ' Lecture sur la colonne 2
End Sub

On pourrait bien entendu améliorer la procédure en plaçant un argument optionnel avec valeur par défaut
Exemple avec comme valeur par défaut 1
Ainsi si on invoque la procédure sans préciser le deuxième argument la boucle de lecture se fera sur la colonne 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Boucle(DataBase As Range, Optional NumCol As Integer = 1)
 Dim r As Long
 With DataBase
  For r = 2 To .Rows.Count
   Debug.Print .Cells(r, NumCol)
  Next
 End With
End Sub

[doctor_vai]

Merci Phillipe pour ta réponse !

Procédure et fonction me sont un peu compliqué et je me suis cassé la tête depuis que t'a posté sans parvenir à bien intégrer le code

Pour moi les colonnes que je veux leur affecter ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Selection.CurrentRegion.Select
cell.Value = Val(cell.Value)

sont les suivants : (B, C, D, F, H, J)

C'est possible de me montrer comment je ferai dans ce cas ?

J'ai essayé de le faire mais sans une aide ça sera impossible, merci !

[Philippe Tulliez]

Bonjour,

Procédure et fonction me sont un peu compliqué et je me suis cassé la tête depuis que t'a posté sans parvenir à bien intégrer le code

Cela va alors être très compliqué parce-qu'en VBA on ne travaille qu'avec des procédures.
En vitesse et à la grosse louche.
Une procédure commence par SUB leNom() et se termine par End Sub et les fonctions sont également des procédures mais qui peuvent renvoyer un résultat et commence par Function leNom() et se termine pas End Function. Les procédures se trouvent dans un module qui lui même fait partie d'un projet (Le classeur). Il peut y avoir un ou plusieurs modules dans un projet.

Pour moi les colonnes que je veux leur affecter ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Selection.CurrentRegion.Select
cell.Value = Val(cell.Value)

sont les suivants : (B, C, D, F, H, J)
C'est possible de me montrer comment je ferai dans ce cas ?

Il faudrait peut-être savoir ce que tu veux faire à l'intérieur de cette boucle.
Explique en français ce que tu veux réaliser et surtout pas en montrant du code.

[doctor_vai]

Merci Phillipe,

Très brièvement :

Ce que j'ai : Une feuille Excel avec des colonnes de montants. Ces montants sont stockés en texte.

Le problème : Je ne peux pas appliquer une macro de mise en forme qui ne reconnait pas les nombres stockés en texte.

Solutions : Le code que j'ai posté permet de résoudre ça, sauf : je ne peux pas l'appliquer sur des colonnes précise, pourquoi ? Les colonnes qui contiennent ces montants stockés en texte sont séparés par des colonnes contenant du texte, ce qui rend impossible l'application à l'arrache du code formulé pour le Range ("A:J"), conséquence : le vrai texte que je veux garder deviens "0" et c'est normal.

Ce que je cherche : Précisez sur quelles colonnes la boucle va tourner

Mercii

[Philippe Tulliez]

Bonjour,
C'est du bricolage mais cela fonctionne
Toujours avec la même procédure.
Ce qui est en rouge doit être adapté.
db est le nom de la feuille
"3;5" représente le n° des colonnes. J'aurais pu le faire avec les lettres des colonnes mais j'ai un peu la flemme. Donc tu dois mettre entre guillemets les numéros des colonnes séparés par un point virgule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub TestBoucle()
 ' Rng représente la plage commençant en cellule A1 de la feuille nommée db
 Dim rng As Range: Set rng = ThisWorkbook.Worksheets("db").Range("A1").CurrentRegion
 Dim Column() As String: Column = Split("3;5", ";")
 Dim c As Integer
 For c = 0 To UBound(Column)
  Boucle rng, Val(Column(c)) ' Lecture sur la colonne 2
 Next
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Boucle(DataBase As Range, NumCol As Integer)
 Dim r As Long
 With DataBase
  For r = 2 To .Rows.Count
  .Cells(r, NumCol) = Val(.Cells(r, NumCol))
  Next
 End With
End Sub