Comment incrémenter la valeur d'une cellule dans un macro ?
Résolu
noisyboyd
Messages postés
1
Statut
Membre
-
noisyboyd -
noisyboyd -
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 ...)
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 ...)
1 réponse
-
@ 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.-
- 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 !!!! - 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.
-
