Besoin d'aide pour une macro sur Excel
Résolu/Fermé
azeaze12345
Messages postés
2
Date d'inscription
lundi 29 juin 2015
Statut
Membre
Dernière intervention
4 juillet 2015
-
Modifié par azeaze12345 le 29/06/2015 à 22:40
azeaze12345 Messages postés 2 Date d'inscription lundi 29 juin 2015 Statut Membre Dernière intervention 4 juillet 2015 - 4 juil. 2015 à 14:40
azeaze12345 Messages postés 2 Date d'inscription lundi 29 juin 2015 Statut Membre Dernière intervention 4 juillet 2015 - 4 juil. 2015 à 14:40
A voir également:
- Besoin d'aide pour une macro sur Excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
- Aller à la ligne excel - Guide
1 réponse
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
30 juin 2015 à 00:27
30 juin 2015 à 00:27
Bonsoir Azeaze, bonsoir le forum,
Essaie comme ça :
Essaie comme ça :
Sub Macro1()
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)
DL = Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne 1 (=A)
For I = 1 To DL 'boucle des lignes 1 à DL
'si la cellule ligne I colonne 1 vaut "A", alors la cellule ligne I, colonne 2 passe en majuscule
If Cells(I, 1).Value = "A" Then Cells(I, 2).Value = UCase(Cells(I, 2).Value)
Next I 'prochaine ligne de la boucle
End Sub
4 juil. 2015 à 14:40