Copier-coller cellule vers une autre en VBA

Résolu/Fermé

Lils_Bis Messages postés 57 Date d'inscription lundi 4 avril 2016 Statut Membre Dernière intervention 28 décembre 2020 - 6 avril 2016 à 09:19
Pierre1310 Messages postés 8564 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 - 6 avril 2016 à 09:42

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:

Copier-coller cellule vers une autre en VBA
Copier coller pdf - Guide
Copier une vidéo youtube - Guide
Aller à la ligne dans une cellule excel - Guide
Copier-coller - Accueil - Windows
Historique copier-coller android - Guide

1 réponse

Réponse 1 / 1

Pierre1310 Messages postés 8564 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 649
6 avril 2016 à 09:21

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.

Lils_Bis Messages postés 57 Date d'inscription lundi 4 avril 2016 Statut Membre Dernière intervention 28 décembre 2020
6 avril 2016 à 09:32

Merci mais pourrais tu être un peu plus large dans ton code car je rame complètement... ^^

Pierre1310 Messages postés 8564 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 649
6 avril 2016 à 09:36

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

Lils_Bis Messages postés 57 Date d'inscription lundi 4 avril 2016 Statut Membre Dernière intervention 28 décembre 2020 > Pierre1310 Messages postés 8564 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020
6 avril 2016 à 09:40

Ca marche, super !!!
Merci beaucoup !

Pierre1310 Messages postés 8564 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 649
6 avril 2016 à 09:42

De rien

Discussions similaires

Colis en cours de transport vers votre site de livraison ?

Comment faire le signe de croix (chrétiens) ?

dessin au clavier cannabis

Déplacer un dessin par copier coller