Ajustement auto. hauteur et largeur cellule, f(contenu dynamiq.)
Résolu
SpcCwb
Messages postés
65
Date d'inscription
Statut
Membre
Dernière intervention
-
SpcCwb Messages postés 65 Date d'inscription Statut Membre Dernière intervention -
SpcCwb Messages postés 65 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Tout d'abord désolé pour le format du titre, j'ai essayé de faire au mieux pour que ma problématique soit présente.
Ma problématique la voici clairement:
J'ai une cellule (appelons là Z1) avec une formule du type:
=&A1&A2&A3&A4&A5&............
En sachant que les cellules sources ont une formule du type:
pour A1=si(B1<>"";B1;"") afin de faire apparaître un contenu en A1 uniquement si la condition en B1 est remplie.
Et la question:
Et ce que j'aimerai c'est paramétrer la cellule Z1 pour que la largeur de la colonne et la hauteur de la ligne s'ajuste en fonction que ce qu'il va si afficher au fur et à mesure que je saisisse le contenu de B1, B2, B3,B3...
Ai-je été clair?
Merci à vous, je sèche et j'ai pas trouvé de solution adéquate dans d'autre topic du même nom.
Tout d'abord désolé pour le format du titre, j'ai essayé de faire au mieux pour que ma problématique soit présente.
Ma problématique la voici clairement:
J'ai une cellule (appelons là Z1) avec une formule du type:
=&A1&A2&A3&A4&A5&............
En sachant que les cellules sources ont une formule du type:
pour A1=si(B1<>"";B1;"") afin de faire apparaître un contenu en A1 uniquement si la condition en B1 est remplie.
Et la question:
Et ce que j'aimerai c'est paramétrer la cellule Z1 pour que la largeur de la colonne et la hauteur de la ligne s'ajuste en fonction que ce qu'il va si afficher au fur et à mesure que je saisisse le contenu de B1, B2, B3,B3...
Ai-je été clair?
Merci à vous, je sèche et j'ai pas trouvé de solution adéquate dans d'autre topic du même nom.
A voir également:
- Ajustement auto. hauteur et largeur cellule, f(contenu dynamiq.)
- Excel cellule couleur si condition texte - Guide
- Fusionner deux cellules excel en gardant le contenu - Guide
- Proteger cellule excel - Guide
- Word a trouvé du contenu illisible - Guide
- Waze hauteur véhicule ✓ - Forum GPS
1 réponse
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!
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
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
Ç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