XL 2016 ajuster ligne et colonne

  • Initiateur de la discussion Initiateur de la discussion snoopy1
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

snoopy1

XLDnaute Nouveau
bonjour
je voudrai qu'en cliquant sur C7, liste déroulante( voir fichier joint: onglet recher),et après avoir fait un choix ,qu'en fonction de la (les) réponse(s) , les cellules se remplissent et elles s'ajustent au texte .
Cela est-il possible.J'ai été sur des forums et bidouillé un code (développeur :visualiser le code)
je mets le code que j ai crée et qui ne fonctionne pas :

Sub ajustement_ligne_colonne()

Target.address "c7" quand je clique dans "c7"qui est une liste déroulante,
Range("d6:x35").Select les réponses apparaissent dans cette plage et je voudrais
Cells.EntireRow.autofit que les cellules où s'affichent ces réponses soient à la dimension du mot
Cells.EntireColumn.autofit qui peut compter 3 lettres ou 10 lettres.

End Sub

merci de votre aide
 

Pièces jointes

Encore du crossposting

Tu auras peut-être la réponse ici

Ou là

Tu en as fait beaucoup comme ça 😡
 
Encore du crossposting

Tu auras peut-être la réponse ici

Ou là

Tu en as fait beaucoup comme ça 😡
 
merci bruno45
certes c est du "crossposting" mais n'ayant pas eu de réponse satisfaisante sur developpez.com, alors que + de 100 personne ont vu mon post, j ai essayé sur 2 autres forums exel pensant avoir plus de chance.
désolé si cela ne t as pas plu!
j'ai une reponse :
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range) 'ajustement_ligne_colonne
If Not Intersect(Target, Range("C7")) Is Nothing Then
Cells.EntireRow.autofit
Cells.EntireColumn.autofit
End If
End Sub
merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour