Macro mise à jour auto valeur par cellule?
Résolu/Fermé
jemakaku
Messages postés
11
Date d'inscription
jeudi 22 novembre 2007
Statut
Membre
Dernière intervention
9 juin 2009
-
14 avril 2009 à 09:15
jemakaku Messages postés 11 Date d'inscription jeudi 22 novembre 2007 Statut Membre Dernière intervention 9 juin 2009 - 14 avril 2009 à 10:44
jemakaku Messages postés 11 Date d'inscription jeudi 22 novembre 2007 Statut Membre Dernière intervention 9 juin 2009 - 14 avril 2009 à 10:44
A voir également:
- Macro mise à jour auto valeur par cellule?
- Mise a jour airpods - Guide
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Mise a jour windows 11 22h2 - Guide
- Desactiver mise a jour windows 10 - Guide
- Mise à jour pilote - Guide
3 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
14 avril 2009 à 10:43
14 avril 2009 à 10:43
Bonjour,
Normale que tu ai toujours la même largeur vu que tu travaille sur la sélection, faut faire..
Et après avoir changer une ou plusieurs largeurs tu tape F9 pour forcer un recalcul.
A+
Normale que tu ai toujours la même largeur vu que tu travaille sur la sélection, faut faire..
Public Function LgColonne()
Application.Volatile
LgColonne = Format(Application.Caller.ColumnWidth / 4.663, "0.000")
End Function
Et après avoir changer une ou plusieurs largeurs tu tape F9 pour forcer un recalcul.
A+
jemakaku
Messages postés
11
Date d'inscription
jeudi 22 novembre 2007
Statut
Membre
Dernière intervention
9 juin 2009
1
14 avril 2009 à 10:43
14 avril 2009 à 10:43
Merci à Pierrot93 sur un autre forum pour sa réponse. (question de rapidité! ;-) )
Je poste pour ceux que ca intéresse.
La fonction devient :
"""
Function ValColonneCm(maplage As Range)
Application.Volatile
ValColonneCm = Format(maplage.ColumnWidth / 4.663, "0.000")
End Function
"""
et pour l'appel, ce n'est plus simplement "=ValColonneCm()" mais "=ValColonneCm(A1)" (A1 représente les coordonnées de la cellule où se trouve la fonction)
Jema
Je poste pour ceux que ca intéresse.
La fonction devient :
"""
Function ValColonneCm(maplage As Range)
Application.Volatile
ValColonneCm = Format(maplage.ColumnWidth / 4.663, "0.000")
End Function
"""
et pour l'appel, ce n'est plus simplement "=ValColonneCm()" mais "=ValColonneCm(A1)" (A1 représente les coordonnées de la cellule où se trouve la fonction)
Jema
jemakaku
Messages postés
11
Date d'inscription
jeudi 22 novembre 2007
Statut
Membre
Dernière intervention
9 juin 2009
1
14 avril 2009 à 10:44
14 avril 2009 à 10:44
Yeahhhhhh, ta solution est plus élégante et plus facile à utiliser.
Tu es le vainqueur, question d'efficacité! ^^
Merci beaucoup! :-)
Jema
Tu es le vainqueur, question d'efficacité! ^^
Merci beaucoup! :-)
Jema