J'ai pas réussi à identifier la partie pour l"image.Dans le fichier que j'ai ajouté à mon message précédent, j'ai ajouté l'affichage de l'image correspondant au sexe sélectionné.
Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim NomFeuille As String
If Not Intersect(Target, Range("D5")) Is Nothing Then
If Target.Value = "Femme" Then
ActiveSheet.Shapes.Range(Array("Femme")).Visible = msoTrue
ActiveSheet.Shapes.Range(Array("Homme")).Visible = msoFalse
Else
ActiveSheet.Shapes.Range(Array("Femme")).Visible = msoFalse 'ici, il manquait un "e"'
ActiveSheet.Shapes.Range(Array("Homme")).Visible = msoTrue
End If
End If
If Not Intersect(Target, Range("C70:C87")) Is Nothing Then
NomFeuille = Target.Offset(0, 1).Value
If Target.Value = "Oui" Then
Sheets(NomFeuille).Visible = True
Else
Sheets(NomFeuille).Visible = False
End If
End If
End Sub
Ben c'est la partie qui est en plus par rapport au code posté en #13.J'ai pas réussi à identifier la partie pour l"image.
parfait merci je vais tester ça aujourd'hui et je vous fais un retourBen c'est la partie qui est en plus par rapport au code posté en #13.
J'aurais visiblement dû mettre des commentaires dans le code.
Merci d'avoir corrigé.'ici, il manquait un "e"
erreur d'execution 1004 : élément portant ce nom est introuvableJ'ai testé la version avec les deux macros. Celle pour les onglets marche parfaitement par contre celle pour l'image non. Il me dit que l'image est introuvable.
bien vu je vais tester ça !Je suppose que tu as recopié la macro dans ton vrai fichier. N'est-il pas ?
J'ai en fait renommé les deux groupes d'images.
bien vu
bien vu je vais tester ça !
J'ai fais les modifications et tout fonctionne parfaitement ! merci pour votre patience et vos lumières ! C'est parfait et ça va grandement améliorer ma pratique libérale ! merciJe suppose que tu as recopié la macro dans ton vrai fichier. N'est-il pas ?
J'ai en fait renommé les deux groupes d'images.
Simple pour vous mais pas pour moi... lolCa reste le même principe : afficher une image (ou un groupe d'images) en fonction du contenu d'une cellule.
Un simple Select Case doit pouvoir le faire.
Et si le texte de l'item sélectionné est identique au nom de l'image à afficher, ça doit être encore plus simple.