Intégrer une macro dans une feuille de calcul
Résolu/Fermé
capeo
Messages postés
181
Date d'inscription
samedi 16 août 2014
Statut
Membre
Dernière intervention
29 juin 2015
-
2 mars 2015 à 09:00
capeo Messages postés 181 Date d'inscription samedi 16 août 2014 Statut Membre Dernière intervention 29 juin 2015 - 2 mars 2015 à 17:34
capeo Messages postés 181 Date d'inscription samedi 16 août 2014 Statut Membre Dernière intervention 29 juin 2015 - 2 mars 2015 à 17:34
A voir également:
- Intégrer une macro dans une feuille de calcul
- Intégrer une vidéo dans un powerpoint - Guide
- Calculer une moyenne sur excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment supprimer une feuille sur word - Guide
- Feuille de pointage excel - Télécharger - Tableur
3 réponses
Mike-31
Messages postés
18354
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
1 janvier 2025
5 110
2 mars 2015 à 09:26
2 mars 2015 à 09:26
Bonjour,
Et non ça ne marche, tout dépend du code et sans voir le code impossible d'apporter une réponse logique et adaptée
Et non ça ne marche, tout dépend du code et sans voir le code impossible d'apporter une réponse logique et adaptée
Mike-31
Messages postés
18354
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
1 janvier 2025
5 110
Modifié par Mike-31 le 2/03/2015 à 13:38
Modifié par Mike-31 le 2/03/2015 à 13:38
Re,
ce code suffit et fonctionne parfaitement, mais il faut au préalable sélectionner ta plage à traiter
Sub Remplacement()
Selection.Replace What:="C", Replacement:="Q"
Selection.Replace What:="$", Replacement:="D"
End Sub
ou ajouter la sélection de la plage dans le code, dans ce cas quel est la plage à traiter même si elle est évolutive
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
ce code suffit et fonctionne parfaitement, mais il faut au préalable sélectionner ta plage à traiter
Sub Remplacement()
Selection.Replace What:="C", Replacement:="Q"
Selection.Replace What:="$", Replacement:="D"
End Sub
ou ajouter la sélection de la plage dans le code, dans ce cas quel est la plage à traiter même si elle est évolutive
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
capeo
Messages postés
181
Date d'inscription
samedi 16 août 2014
Statut
Membre
Dernière intervention
29 juin 2015
2 mars 2015 à 14:35
2 mars 2015 à 14:35
Re
Mais pourquoi cela ne fonctionne que quand Visual est ouvert et que je sélectionne exécution et le je clique sur "éxécuter Sub/User form en ayant sélectionné une plage de cellule. pourquoi quand j'actionne un bouton que je pense avoir associé à la macro que le bouton ne fonctionne pas ?
Pour ta demande
La plage se trouve dans la colonne A
Le peu que j'ai compris est il bon
la lettre C sera remplacer par Q
et $ par D
Y a t il moyen d'améliorer ce code en lui demandant d'aller chercher les valeurs dans une matrice qui se trouverait en colonne C et D
https://www.cjoint.com/?3CcodGLmzlR
Merci pour ton aide
Cdlt
Mais pourquoi cela ne fonctionne que quand Visual est ouvert et que je sélectionne exécution et le je clique sur "éxécuter Sub/User form en ayant sélectionné une plage de cellule. pourquoi quand j'actionne un bouton que je pense avoir associé à la macro que le bouton ne fonctionne pas ?
Pour ta demande
La plage se trouve dans la colonne A
Le peu que j'ai compris est il bon
la lettre C sera remplacer par Q
et $ par D
Y a t il moyen d'améliorer ce code en lui demandant d'aller chercher les valeurs dans une matrice qui se trouverait en colonne C et D
https://www.cjoint.com/?3CcodGLmzlR
Merci pour ton aide
Cdlt
Mike-31
Messages postés
18354
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
1 janvier 2025
5 110
2 mars 2015 à 15:24
2 mars 2015 à 15:24
Re,
il faut que ton fichier soit enregistré avec l'extension .XLS ou .XLSM
l'extension .XLSX ne prend pas en compte les code VBA
https://www.cjoint.com/?ECcpIRMiwkq
il faut que ton fichier soit enregistré avec l'extension .XLS ou .XLSM
l'extension .XLSX ne prend pas en compte les code VBA
https://www.cjoint.com/?ECcpIRMiwkq
capeo
Messages postés
181
Date d'inscription
samedi 16 août 2014
Statut
Membre
Dernière intervention
29 juin 2015
2 mars 2015 à 17:34
2 mars 2015 à 17:34
Merci
je peux clôturer maintenant
je peux clôturer maintenant
2 mars 2015 à 13:21
Ci joint le code.
Sub Remplacement()
Selection.Replace What:="C", Replacement:="Q", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
ReplaceFormat:=False
Selection.Replace What:="$", Replacement:="D", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
ReplaceFormat:=False
End Sub
en plus je voudrais mettre un bouton pour exécuter cette formule. mais rien ne marche.
Merci pour ton aide précieuse
Cdlt