Comment incrémenter la valeur d'une cellule dans un macro ?

Résolu/Fermé

noisyboyd Messages postés 1 Date d'inscription mardi 9 juin 2015 Statut Membre Dernière intervention 9 juin 2015 - 9 juin 2015 à 18:49
noisyboyd - 11 juin 2015 à 08:06

Bonjour à tous,
voilà en ce moment au taf je dois transposer une colonne de mesures (760 mesures en gros) qui est dans une feuille excel vers une autre feuille du même fichier excel mais cette fois pas sous la même forme ! je veux donc faire une macro parce que faire un "copier coller" sur 700 cellules, pas trop envie

voilà ces images qui vous feront certainement mieux comprendre le pb ! je trouve pas le moyen de transposer les valeurs de la feuille 'mesure à 10m' de la colonne H sur la feuille 'data1' dans la colonne D

merci par avance de votre aide. ( je suis nouveau sur le site donc dites moi s'il y a des choses que j'ai mal faites ...)

A voir également:

Vba incrementer une cellule
Aller à la ligne dans une cellule excel - Guide
Excel compter cellule couleur sans vba - Guide
Verrouiller cellule excel - Guide
Excel cellule couleur si condition texte - Guide
Vba range avec variable ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 856
Modifié par Strumpfette le 27/07/2015 à 17:55

@ noisyboyd :
tu parles de transposition mais j'ai l'impression que ta demande n'a rien à voir avec une transposition.
Pour ma part, je ne travaille pas sur des images (que je n'arrive pas à agrandir d'ailleurs). Envoie ton fichier sur cjoint qu'on puisse regarder.

cordialement.

noisyboyd
10 juin 2015 à 10:01

merci jvdo ! voici le lien...http://www.cjoint.com/c/EFkiaC4HD0B
cdt

JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 856 > noisyboyd
10 juin 2015 à 13:09

Bonjour,

tu as une erreur en D285 dans ta feuille DATA1. la formule

='Mesure 10m'!H81

est répétée 2 fois.
Je te propose la macro suivante qui s'appuie sur la 1ère colonne pour tester "MPoint" :

Dim numero As Integer
numero = 9
lig_source = 11
formul = "='Mesure 10m'!H"
For lig_dest = numero To 3006
    If Cells(lig_dest, 1) = "MPoint" Then Cells(lig_dest, 8) = formul & lig_source: lig_source = lig_source + 1
Next

Remarque : très mauvaise idée de mettre CTRL c en raccourci clavier !!!!

noisyboyd > JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020
10 juin 2015 à 18:35

merci encore de ton aide ! je vais regarder ça demain et je te dirais
...

noisyboyd > JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020
Modifié par noisyboyd le 11/06/2015 à 08:15

super ça marche au poil !! par contre juste une chose je voudrais mettre les données dans la colonne D "Then Cells(lig_dest, 8)" donc pour moi il fallait juste modifier le 8 par un 3 mais ça fonctionne pas ?? est ce qu'il faudrait faire autre chose ?
en tout cas je te remrcie du fond du coeur ;) tu vas m'éviter de passer de longues heures pénibles à copier chaque valeur
edit: non en fait c'est bon le fichier excel ne s'était pas mis à jour ( et aussi c'était 4 mais pas 3 ^^). mercie encore et bonne journée.

Discussions similaires

Excel VBA : Récupérer la valeur d'une cellule

Excel si cellule contient texte alors...

Excel : colorer une cellule sous condition d'une autre ?

"L'indice n'appartient à la sélection" + VBA

Formule Excel : "SI" une cellule contient un mot, alors ?

Discussions similaires

Newsletters