Ajustement auto. hauteur et largeur cellule, f(contenu dynamiq.)
Résolu/Fermé
SpcCwb
Messages postés
65
Date d'inscription
mardi 7 mai 2013
Statut
Membre
Dernière intervention
26 novembre 2020
-
13 déc. 2017 à 13:09
SpcCwb Messages postés 65 Date d'inscription mardi 7 mai 2013 Statut Membre Dernière intervention 26 novembre 2020 - 13 déc. 2017 à 16:37
SpcCwb Messages postés 65 Date d'inscription mardi 7 mai 2013 Statut Membre Dernière intervention 26 novembre 2020 - 13 déc. 2017 à 16:37
A voir également:
- Ajustement auto. hauteur et largeur cellule, f(contenu dynamiq.)
- Chkdsk /f - Guide
- Word a trouvé du contenu illisible - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Comment colorer une cellule excel en fonction du contenu d'une autre cellule ✓ - Forum Excel
1 réponse
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 394
Modifié le 13 déc. 2017 à 14:21
Modifié le 13 déc. 2017 à 14:21
Bonjour
alors peut être comme ça, pour activer l'action de B2 à B20 (à adapter)
clic droit sur l'onglet, "visualiser le coe"
et coller ça (toutes les lignes, celles qui débutent pas l'apostrophe _ à conserver _sont des lignes d'info.
Private Sub Worksheet_Change(ByVal Target As Range)
'définition du champ acrif d'entrée des valeurs
If Target.Column = 2 and Target.Row>1 and Target.Row<21 Then
'sélection de la colonne à calibrer
Columns("Z:Z").Select
Selection.Columns.AutoFit
End If
'retour à la cellule début du champ d'entrée
Range("B2").Select
End Sub
(qui raméne à la cellule B2 en fin d'action)
crdlmnt
La qualité de la réponse dépend surtout de la clarté de la question, merci!
alors peut être comme ça, pour activer l'action de B2 à B20 (à adapter)
clic droit sur l'onglet, "visualiser le coe"
et coller ça (toutes les lignes, celles qui débutent pas l'apostrophe _ à conserver _sont des lignes d'info.
Private Sub Worksheet_Change(ByVal Target As Range)
'définition du champ acrif d'entrée des valeurs
If Target.Column = 2 and Target.Row>1 and Target.Row<21 Then
'sélection de la colonne à calibrer
Columns("Z:Z").Select
Selection.Columns.AutoFit
End If
'retour à la cellule début du champ d'entrée
Range("B2").Select
End Sub
(qui raméne à la cellule B2 en fin d'action)
crdlmnt
La qualité de la réponse dépend surtout de la clarté de la question, merci!
13 déc. 2017 à 15:39
Je vois comment fonctionne cette macro et j'apprécie la façon dont vous raisonnez.
En fait j'ai un peu simplifié le problème:
La target qui doit ciblé la zone d'entrée de valeur c'est les cellules FM4 à NB201
Et la zone de colonnes à calibrer c'est FC à FL
Du coup je peux facilement remplacer:
par:
Mais je ne trouve pas la façon dont ré-écrire:
De plus, ça risque d'être trèèèèèèès long à traiter dès qu'il y aura une saisie. Non?
Merci encore
Modifié le 13 déc. 2017 à 15:55
sur tout le champ, il est possible que ça ne soit pas plus long
pour la ligne de target:
définition du champ actif:
=If Target.column>168 and Target.Column<367 and Target.Row>3 and Target.row<202 Then
et bien sur choisissez dans la dernière ligne (range) la cellule de fin.
(si l'écriture est correcte, VBA mettra les majuscules aux bons endroits)
crdlmnt
Modifié le 13 déc. 2017 à 16:38
Ça à l'air de fonctionné plutôt bien!..
Finalement je m'y retrouve plus en faisant un:
Rows("3:201").SelectSelection.Rows.AutoFit
End If
Mais ça marche impeccablement bien! un très très grand merci!
Très bonne continuation,
Cordialement