Changer la valeur d'une cellule en chiffre avec une macro
Résolu
Barahaoua
Messages postés
88
Date d'inscription
Statut
Membre
Dernière intervention
-
Barahaoua Messages postés 88 Date d'inscription Statut Membre Dernière intervention -
Barahaoua Messages postés 88 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Changer la valeur d'une cellule en chiffre avec une macro
- Changer dns - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Excel trier par ordre croissant chiffre - Guide
- Aller à la ligne dans une cellule excel - Guide
- Changer clavier qwerty en azerty - Guide
4 réponses
Bonjour,
essaie ca :
essaie ca :
Dim Cellule As Range
'Parcourir les cellules de la plage utilisée
For Each Cellule In ActiveSheet.UsedRange
'Traiter uniquement les cellules possédant une formule
If Cellule.HasFormula Then
Cellule.copy
cellule.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next Cellule
Mélanie j'ai essayer le premier mais malheureusement il me récupère pas la valeur de O4 de la feuille" usine"
regarde ce qu'il me fait
merci
je vais assayer maintenant les autres solutions
J'ai trouvé le problème et je l'ai corrigé :
https://www.cjoint.com/c/FHkiQU5ShHi
La macro se trouve dans module 1 et se nomme copier coller
https://www.cjoint.com/c/FHkiQU5ShHi
La macro se trouve dans module 1 et se nomme copier coller
ce fichier : https://www.cjoint.com/c/FHkiQU5ShHi
car il faut modifier le code comme ca :
i = 2
'boucle qui va rechercher la première ligne disponible
Do While Sheets("Commentaires").Cells(i, 2) <> ""
i = i + 1
Loop
Sheets("Commentaires").Cells(i-1, 4) = sheets("Usine").cells(4,15).value
car il faut modifier le code comme ca :
i = 2
'boucle qui va rechercher la première ligne disponible
Do While Sheets("Commentaires").Cells(i, 2) <> ""
i = i + 1
Loop
Sheets("Commentaires").Cells(i-1, 4) = sheets("Usine").cells(4,15).value
Parce que tu n'as pas pris la dernière version et que tu n'as pas fait la modification indiquée.
Essaie avec ce fichier stp :
https://www.cjoint.com/c/FHkjeBqUSPi
Essaie avec ce fichier stp :
https://www.cjoint.com/c/FHkjeBqUSPi
En faite je vais t'expliquer ce que je voudrais faire exactement s'il te plait
actuellement je suis en cours de réalisation d'un outil de simulation ou j'ai :
une feuille "Accueil" dans laquelle je veux entrés le une donnée dans la cellule D8 et une donnée dans la cellule D15 c'est donner je veux que je puisse cliquer sur un bouton et que la donnée que j'ai dans D8 sera coller dans la colonne C de la feuille "Commentaire" et la Donnée de D15 sera collé dans la colonne B de la feuille "Commentaire " une fois que j'ai fais ça ; j’exécute la macro de simulation qui agit sur la feuille "Usine" pour que la fin de la simulation , je vais avoir une donnée dans la cellule O4 de la feuille "Usine" et cette donnée je voudrai la coller sur la même ligne ou j'ai coller les premiére Données sur la feuille " Commentaire "
a chaque enregistrement du fichier je veux que les données qui sont saisie dans les cellules de la feuille "Commentaire " reste et que si j'ai rentrés des nouvelles données et jai lancer une autre simulation ; les nouvelles informations seront enregistré dans la ligne suivante dans la feuille "commentaire"
je vais te mettre stp le fichier en pièce jointe pour comprendre ce que je suis entrain de dire
https://www.cjoint.com/c/FHkh2yLEgFh
merci
cordialement
Là c'est plus clair.
Et j'ai 2 solutions à te proposer
Solution 1 : étape 1 copie des cellules, 2°°) appel de la macro, 3°) Copie de la feuille usine
<gras>Solution 2 : étape 1 copie des cellules
là manuellement tu lances la macro simulation
et tu ajoutes à la fin de la macro simulation :