XL 2016 ajuster ligne et colonne

[snoopy1]

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

 

[Compte Supprimé 979]

Encore du crossposting

Tu auras peut-être la réponse ici

A propos du forum

Forum d'entraide A propos du forum, pour vos questions, remarques à propos du forum ou de son utilisation (contenant 1'969 posts)...

forum.excel-pratique.com

Ou là

[XL-2016] Ajuster lignes et colonnes - Macros et VBA Excel

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

www.developpez.net

Tu en as fait beaucoup comme ça

 

[snoopy1]

Encore du crossposting

Tu auras peut-être la réponse ici

A propos du forum

Forum d'entraide A propos du forum, pour vos questions, remarques à propos du forum ou de son utilisation (contenant 1'969 posts)...

forum.excel-pratique.com

Ou là

[XL-2016] Ajuster lignes et colonnes - Macros et VBA Excel

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

www.developpez.net

Tu en as fait beaucoup comme ça

 

[snoopy1]

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