Copier-coller cellule vers une autre en VBA [Résolu/Fermé]

Signaler
Messages postés
57
Date d'inscription
lundi 4 avril 2016
Statut
Membre
Dernière intervention
28 décembre 2020
-
Messages postés
8554
Date d'inscription
lundi 21 décembre 2015
Statut
Membre
Dernière intervention
21 juillet 2020
-
Bonjour,
Alors je vous explique mon problème :
J'ai une base de données que je dois traiter mais avant nettoyer quelque peu. Ainsi, j'ai choisi d'utiliser VBA grâce à Excel

Pour mon problème j'ai cela :
prio ?
prio ?
par defaut ?
par defaut ?
prio ?
par defaut ?
prio ?

Et je voudrais remplacer les "prio ?" par des "prio" et même histoire pour les "par defaut ?". Et ce, sur toute ma colonne (ici en l'occurrence la N). J'ai réussi à faire quelque chose mais le code s'arrête dès qu'il rencontre une cellule vide dans ma colonne. Alors, il m'affiche l'erreur d'exécution 5.

Quelqu'un pourrait-il me donner un petit coup de main car je n'y connais pas grand chose, pour ne pas dire, rien, en programmation VBA...


1 réponse

Messages postés
8554
Date d'inscription
lundi 21 décembre 2015
Statut
Membre
Dernière intervention
21 juillet 2020
597
Salut,

Utilise la fonction replace.
Tu mets dans une variable le nombre de lignes de ta feuille
Sheets("ta feuille").Cells.SpecialCells(xlCellTypeLastCell).Row

Puis tu fais un compteur qui va compter dessus.
Messages postés
57
Date d'inscription
lundi 4 avril 2016
Statut
Membre
Dernière intervention
28 décembre 2020

Merci mais pourrais tu être un peu plus large dans ton code car je rame complètement... ^^
Messages postés
8554
Date d'inscription
lundi 21 décembre 2015
Statut
Membre
Dernière intervention
21 juillet 2020
597
Ce que je t'ai montré comme code calcule automatiquement les lignes de ta feuille.

Après tu n'as plus qu'a faire

For i = 1 to ma_variable

cells(i,ta_colonne) = Replace(cells(i,ta_colonne), "prio ? ", "prio")
cells(i,ta_colonne) = Replace(cells(i,ta_colonne), "par defaut ? ", "par defaut")
next i
Messages postés
57
Date d'inscription
lundi 4 avril 2016
Statut
Membre
Dernière intervention
28 décembre 2020
>
Messages postés
8554
Date d'inscription
lundi 21 décembre 2015
Statut
Membre
Dernière intervention
21 juillet 2020

Ca marche, super !!!
Merci beaucoup !
Messages postés
8554
Date d'inscription
lundi 21 décembre 2015
Statut
Membre
Dernière intervention
21 juillet 2020
597
De rien