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

Résolu

noisyboyd Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
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 ...)

Afficher la suite

A voir également:

Vba incrementer une cellule
Excel compter cellule couleur sans vba - Guide
Excel cellule couleur si condition texte - Guide
Aller à la ligne dans une cellule excel - Guide
Proteger cellule excel - Guide
Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel

1 réponse

Réponse 1 / 1

JvDo Messages postés 1978 Date d'inscription Statut Membre Dernière intervention 859

@ 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

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

JvDo Messages postés 1978 Date d'inscription Statut Membre Dernière intervention 859 > noisyboyd

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 Statut Membre Dernière intervention

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

noisyboyd > JvDo Messages postés 1978 Date d'inscription Statut Membre Dernière intervention

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 fractionner une cellule horizontalement

Excel formule : savoir si une cellule contient partie texte

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

VBA Excel : sélection d'une plage variable

Votre réponse

Discussions similaires