Discussion :

[Nako_lito]

Bonjour,
J'ai un classeur Excel avec 4 feuille, je ne tiens compte que de la 2eme qui se structure comme suit:

Nom_Rq Champ_Rq index
Rq1 Champ1 1
Rq1 Champ2 2
Rq1 Champ3 3
RQ2 CHAMP1 1
RQ2 CHAMP2 2
Rq3 CHAMP1 1
Rq3 Champ2 2

PS: le nombre de ligne n'est pas fixe et varie en fonction de l'utilisation

je voudrais que le contenu de toute les cases soient en majuscule, j'ai tenté de faire une macro, mais ca marche pas super bien
J'ai egalement tenté de faire une boucle dans un boucle pour passer en revu toute les cellule de ma page, mais ayant 2500 ligne, c'est un peu long ....

Existerai t'il une methode efficace intégré a Excel qui permette ca ?

[Nako_lito]

En me balladant sur le net j'ai trouvé ma solution:

Code :

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

1
2
3
4
5
6
Dim element
Dim Cell As Range
For Each Cell In VBAProject.Feuil2.Range("A2:B" & Range("B65536").End(xlUp).Row) 
'le A2:B65536 permet de couvrir toute ma selection (soit les colonne A et B sans les intitulé de colonne)
     Cell.Value = UCase(Cell.Value)
Next

[Fvandermeulen]

Salut,
Voici un petit code qui devrait te convenir,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub UpperCase()
 
Dim DerCel As Long
Dim cel As Range, MaPlage As Range
 
 
DerCel = Sheets("sheet2").Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
Set MaPlage = Range(Cells(2, 1), Cells(DerCel, 2)) 'Défini la plage de A2 à Bx, x = dernière ligne.
 
For Each cel In MaPlage 'Boucle sur chaque cellule de la plage
    cel = UCase(cel) 'Met le contenu de la cellule en majuscule
Next cel 'Passe à la cellule suivante
 
End Sub

Si tu as des questions, n'hésites pas.

A+

Edit: 2ème sur le coup, désolé pas de refresh pour une solution est +/- identique.