Copier-coller cellule vers une autre en VBA

Résolu
Lils_Bis Messages postés 65 Statut Membre -  
Pierre1310 Messages postés 8854 Statut Membre -
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...


A voir également:

1 réponse

Réponse 1 / 1
Pierre1310 Messages postés 8854 Statut Membre 651
 
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.
0
Lils_Bis Messages postés 65 Statut Membre
 
Merci mais pourrais tu être un peu plus large dans ton code car je rame complètement... ^^
0
Pierre1310 Messages postés 8854 Statut Membre 651
 
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
0
Lils_Bis Messages postés 65 Statut Membre > Pierre1310 Messages postés 8854 Statut Membre
 
Ca marche, super !!!
Merci beaucoup !
0
Pierre1310 Messages postés 8854 Statut Membre 651
 
De rien
0

Discussions similaires

dessin avec symbole clavier
JSS -
Adraen -

79 réponses
dessin au clavier cannabis
val2t1 -
Mamaaaa18 -

10 réponses