Sub MasqueBouton()
Dim Shp As Shape
Dim i As Integer
'Boucle sur les bouton de la Feuil1 (A adapter)
'Si tu veux tout masquer cette boucle est inutile ==> For i =....
For i = 1 To 7 'Si tes numéros de bouton sont de 1 à 7 (A adapter)
For Each Shp In Feuil1.Shapes
If Shp.Name = "Button " & i Then Shp.Visible = False
Next Shp
Next i
End Sub
Sub AfficheBouton()
Dim Shp As Shape
Dim i As Integer
'Boucle sur les bouton de la Feuil1 (A adapter)
'Si tu veux tout masquer cette boucle est inutile ==> For i =....
For i = 1 To 7 'Si tes numéros de bouton sont de 1 à 7 (A adapter)
For Each Shp In Feuil1.Shapes
If Shp.Name = "Button " & i Then Shp.Visible = True
Next Shp
Next i
End Sub
Bonjour à tous,Bonjour Tchotchodu31, Staple1600, le forum
Si j'ai bien compris :
Regarde la pièce jointe 1096931
@Phil69970
'NAVIGATION PRINCIPALE - ETAPE 1
'Masque/affiche les lignes de la page de saisie
Sub BtnNAVA_DAS()
Sheets("Données_à_saisir").Visible = True
Sheets("Données_à_saisir").Unprotect PassWord:="toto"
Sheets("Données_à_saisir").Rows("6:133").Hidden = True
Sheets("Données_à_saisir").Rows("2:34").Hidden = False 'ici les images concernées
Sheets("Données_à_saisir").Rows("120:121").Hidden = False
Sheets("Données_à_saisir").Protect PassWord:="toto", UserInterfaceOnly:=True
Application.Goto Sheets("Données_à_saisir").Range("A1")
Application.Goto Sheets("Données_à_saisir").Range("E7")
End Sub
Les 6 boutons de la ligne 4 sont bien centrés dans une ligne de 35px et le gros bouton est centré dans 4 cellules fusionnées (ligne 9,10,11,12 colonnes B:C).Le fil
@Staple1600 :
Oui apparemment ce sont des boutons contrôles de formulaire et non pas des CommandButton (ActiveX)
@Tchotchodu31 :
Peut être les boutons sont à cheval sur x lignes et au moment du masquage /démasquage sont "perdus" en quelque sorte.
Essaye de les déplacer légerement et/ou les agrandir démesurément pour voir si ton pb perdure....
@Phil69970
Sub CacheBouton()
ActiveSheet.Shapes("Bouton 1").Visible = False
End Sub
Sub AfficheBouton()
ActiveSheet.Shapes("Bouton 1").Visible = True
End Sub
Salut mapomme, le forum,Bonjour @Tchotchodu31,
Et le petit fichier exemple avec les boutons et la macro en cause, il faut qu'on se le coltine nous-même pour faire nos essais ? Vous n'êtes plus un novice pourtant!
Ou bien vu votre pseudo, vous attendez chaque 31 du mois pour le mettre à disposition ? (ça va faire long jusqu'à fin mars)
Est-il possible d'adapter ce code dans la macro du post #5 ou faut-il une macro à part ?Le fil
Une idée tu peux les gérer expressément comme ceci :
*Les noms des boutons sont à adapter....
@Phil69970VB:Sub CacheBouton() ActiveSheet.Shapes("Bouton 1").Visible = False End Sub Sub AfficheBouton() ActiveSheet.Shapes("Bouton 1").Visible = True End Sub
Sub BtnNAVA_DAS_bis()
With Sheets("Données_à_saisir")
.Visible = True
.Unprotect Password:="toto"
.Rows("6:133").Hidden = True
.Range("2:34,120:121").EntireRow.Hidden = False 'ici les images concernées
.Protect Password:="toto", UserInterfaceOnly:=True
End With
Application.Goto Sheets("Données_à_saisir").Range("A1")
Application.Goto Sheets("Données_à_saisir").Range("E7")
End Sub
Sub Voir_Tout()
ActiveSheet.DrawingObjects.Visible = True
End Sub
@Tchotchodu31 :@Staple1600 :
Oui apparemment ce sont des boutons contrôles de formulaire et non pas des CommandButton (ActiveX)
Oui c'est possible dans ton code ou celui de Staple1600Est-il possible d'adapter ce code dans la macro du post #5 ou faut-il une macro à part ?
Worksheets("Données_à_saisir").Shapes("Bouton 428").Visible = False
Worksheets("Données_à_saisir").Shapes("Bouton 428").Visible = True