VBA remplacer des sigles par le nom complet
Résolu
Thomas8080
Messages postés
15
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- VBA remplacer des sigles par le nom complet
- Remplacer disque dur par ssd - Guide
- Telechargement film d'action complet en francais - Télécharger - TV & Vidéo
- Telecharger fl studio 20 pour pc gratuit complet - Télécharger - Édition & Montage
- Remplacer par word - Guide
- Telecharger film complet sur mobile gratuit - Télécharger - TV & Vidéo
9 réponses
bonjour
je pense qu'il faut voir comment tes données sont organisées
peux tu envoyer ton fichier, au format excel 2003, sans données confidentielles sur cjoint.com et joindre le lien obtenu à ton prochain message
bonne suite
je pense qu'il faut voir comment tes données sont organisées
peux tu envoyer ton fichier, au format excel 2003, sans données confidentielles sur cjoint.com et joindre le lien obtenu à ton prochain message
bonne suite
Q1. les sigles (2 lettres) à remplacer, commencent à partir de la ligne 5 (1°,2°,3°) ou 6 (4°,5°)?
Q2. que fait on des sigles "doubles" (FI PC par exemple)
Q3. tu veux les deux options au choix (remplacement par nom-prenom ou email)
Q4. Que fait on avec les largeurs de colonnes?
Q2. que fait on des sigles "doubles" (FI PC par exemple)
Q3. tu veux les deux options au choix (remplacement par nom-prenom ou email)
Q4. Que fait on avec les largeurs de colonnes?
C'est pour le faire une seul fois ou alors le faire souvent?
Car j'ai une macro qui marche mais elle est très lourde...
Le premier pas vers la solution est la recherche. Notre ami Google connaît sûrement la solution...
Car j'ai une macro qui marche mais elle est très lourde...
Le premier pas vers la solution est la recherche. Notre ami Google connaît sûrement la solution...
Dim sigle As Variant
Dim ligne As Integer
Dim ligne2 As Integer
Dim nom As Variant
For ligne = 1 To 125
Sheets("Sigles").Select
sigle = Cells(ligne, 1).Value
nom = Cells(ligne, 2).Value
For ligne2 = 1 To 41
For colonne = 1 To 28
Sheets("1ère").Select
If Cells(ligne2, colonne).Value = sigle Then
Cells(ligne2, colonne).Value = nom
End If
Next colonne
Next ligne2
Next ligne
Voila, cela remplacera dans la feuille "1ère".
Modifier ensuite 1ère en 2ème etc. pour faire les autres feuilles.
Faire les 5 en même temps serai un peu lourd avec ce code.
Procédure:
Créer une macro
Copier/Coller le code
Lancer la macro
Attendre la fin de la macro
Si la macro est trop longue (plusieurs minute) la stopper en tapotant sur ESC.
Cordialement
Merci beaucoup!
ça me va très bien.
J'ai ajouté
Application.ScreenUpdating = False
et c'est nettement plus rapide.
Merci
ça me va très bien.
J'ai ajouté
Application.ScreenUpdating = False
et c'est nettement plus rapide.
Merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Pourquoi pas?
S'il y a une autre solution qui me permet de ne pas retoucher le code pour chaque feuillet je suis preneur.
Merci beaucoup pour votre aide.
LC
S'il y a une autre solution qui me permet de ne pas retoucher le code pour chaque feuillet je suis preneur.
Merci beaucoup pour votre aide.
LC
bonjour
un essai qui traite les 5 feuilles en bloc, avec retour à l'état initial
https://www.cjoint.com/?0Fovu6srjC6
à tester bien sûr!!
bonne suite
un essai qui traite les 5 feuilles en bloc, avec retour à l'état initial
https://www.cjoint.com/?0Fovu6srjC6
à tester bien sûr!!
bonne suite
Un grand merci c'est vraiment génial de pouvoir compter sur votre aide.
Là c'est la classe!
J'ai vraiment ce qu'il me fallait.
Je vais clore le sujet
Merci encore
Là c'est la classe!
J'ai vraiment ce qu'il me fallait.
Je vais clore le sujet
Merci encore
re
avec un peu de ménage et la prise en charge des sigles doubles
https://www.cjoint.com/?0FqoHOs6XmQ
bonne journée
avec un peu de ménage et la prise en charge des sigles doubles
https://www.cjoint.com/?0FqoHOs6XmQ
bonne journée
Merci à l'avance pour votre aide.