XL 2010 Paramétrer nom onglet dans une variable au niveau d’une cellule

[jeanmi]

Bonjour à tous,

Je souhaite copier la cellule A1 de l’onglet « toto » dans la cellule J1 de l’onglet données

Actuellement je fais en J1 =toto!A1

Mais si je mais dans B2 le nom « toto » afin de pouvoir changer l’emplacement de récupération.

Es que l’on peut faire ?

Merci pour la réponse.

Cordialement

 

[jeanmi]

Bien sur, si elles sont non utiles au VBA vous les appelez comme vous voulez.

Ca, c'est important, ça évite de perdre du temps à se demander ce qu'on a voulu faire.

J'ai trouvé comment renommer les images.

Pour renommer une image dans un fichier Excel, vous pouvez suivre ces étapes :

1. Ouvrir le fichier Excel : Assurez-vous que le fichier Excel contenant l'image est ouvert.
2. Accéder à l'onglet contenant l'image : Naviguez vers l'onglet où l'image nommée "Picture4" est située.
3. Sélectionner l'image : Cliquez sur l'image pour la sélectionner. Vous devriez voir des poignées de redimensionnement autour de l'image lorsqu'elle est sélectionnée.
4. Accéder au volet de sélection :
   
   • Allez dans le menu "Format" qui apparaît en haut de l'écran lorsque l'image est sélectionnée.
   • Cliquez sur "Sélection" dans le groupe "Organiser" pour ouvrir le volet de sélection.
5. Renommer l'image :
   
   • Dans le volet de sélection, vous verrez une liste de tous les objets sur la feuille, y compris les images.
   • Trouvez "Picture4" dans la liste, cliquez dessus, puis tapez le nouveau nom que vous souhaitez donner à l'image.
6. Valider le changement : Appuyez sur Entrée pour enregistrer le nouveau nom.

 

[sylvanu]

Si c'est pour simplement renommer une image, je trouve qu'il y a plus simple :

 

[jeanmi]

Si c'est pour simplement renommer une image, je trouve qu'il y a plus simple :
Regarde la pièce jointe 1213396

re bonjour @sylvanu à tous,


Merci pour la simplicité de renommer les images. Pourquoi faire simple alors que l'on peut faire compliqué🤣 et bien lorsque l'on ne maitrise pas il semble.

Encore une petite question, je n'ai pas voulu créer un autre sujet :

je voulais addatpé l'echelle du graphique suivant le choix de la planète, pour le rendre visible dans toutes les configurations.

j'ai fait le code en auto apprentissage, mais je ne sais pas ou le mettre dans le reste du code ?

A la fin de MasquerCourbes, j'ai essayé mais pb, peut-à cause du code ?

Sub echelle_graph()
'
    'modification de l'echelle du graphique

Dim planete As String
Dim x, y As Byte

    planete = Cells(15, 3).Value 'recupère le nom de la planète
    
    If planete = "Mercure" Then y = 2: x = 2
    If planete = "Venus" Then y = 2: x = 2
    If planete = "Mars" Then y = 3: x = 3
    If planete = "Jupiter" Then y = 7: x = 7
    If planete = "Saturne" Then y = 11: x = 11
    If planete = "Uranus" Then y = 21: x = 21
    If planete = "Neptune" Then y = 31: x = 31
    If planete = "Soleil" Then y = 2: x = 2
    
    Sheets("graph").Select
    
    ActiveChart.ChartArea.Select
    
    ActiveChart.Axes(xlValue).Select
    ActiveChart.Axes(xlValue).MinimumScale = y * -1
    ActiveChart.Axes(xlValue).MaximumScale = y
    
    ActiveChart.Axes(xlCategory).Select
    ActiveChart.Axes(xlCategory).MinimumScale = x * -1
    ActiveChart.Axes(xlCategory).MaximumScale = x
      
End Sub

Encore merci pour l'aide

Cordialement

 

[sylvanu]

Bonsoir,
Sans essai, un peu au pif, à la fin de MasquerCourbes :

Sub MasquerCourbes()
...
...
End With
GestionImages

Echelle_graph        ' Mise à l'échelle vs la planète
End Sub

 

[jeanmi]

Bonsoir,
Sans essai, un peu au pif, à la fin de MasquerCourbes :

Sub MasquerCourbes()
...
...
End With
GestionImages

Echelle_graph        ' Mise à l'échelle vs la planète
End Sub

c'est ce que j'ai fait mais comme expliqué au #33 ça bloc ???

 

[sylvanu]

A voir ....
Planète est en C16 non en C15 donc c'est : planete = Cells(16, 3).Value
Et remplacer :

 ActiveChart.ChartArea.Select
 par
 ActiveSheet.ChartObjects("Graphique 1").Activate

sur la V9 au moins ça ne se plante pas, à voir si ça fait ce que vous voulez.

 

[jeanmi]

Bonsoir,
Sans essai, un peu au pif, à la fin de MasquerCourbes :

Sub MasquerCourbes()
...
...
End With
GestionImages

Echelle_graph        ' Mise à l'échelle vs la planète
End Sub

J'ai fait un test d'une demande sur l'AI Mistral , pour voir et là en 2s, voici le code qu'il m'a donné, et çasemble fonctionne, c'est incroyable. peut-être pas optimisé, mais là je ne sais pas dire.

Sub TesterAxesGraphique()
    Dim ws As Worksheet
    Dim cht As ChartObject
    Dim planete As String
    Dim x As Double, y As Double

    ' Définir la feuille de calcul active
    Set ws = ActiveSheet

    ' Définir l'objet graphique en utilisant le nom VBA
    On Error Resume Next
    Set cht = ws.ChartObjects("Chart 1")
    On Error GoTo 0

    ' Vérifier si le graphique existe
    If Not cht Is Nothing Then
        ' Tester chaque planète
        Dim planetes As Variant
        planetes = Array("Mercure", "Venus", "Mars", "Jupiter", "Saturne", "Uranus", "Neptune", "Soleil")

        For Each planete In planetes
            Select Case planete
                Case "Mercure", "Venus", "Soleil"
                    x = 2
                    y = 2
                Case "Mars"
                    x = 3
                    y = 3
                Case "Jupiter"
                    x = 7
                    y = 7
                Case "Saturne"
                    x = 11
                    y = 11
                Case "Uranus"
                    x = 21
                    y = 21
                Case "Neptune"
                    x = 31
                    y = 31
            End Select

            ' Modifier les valeurs des axes X et Y pour chaque planète
            With cht.Chart
                .Axes(xlCategory).MinimumScale = x * -1
                .Axes(xlCategory).MaximumScale = x
                .Axes(xlValue).MinimumScale = x  * -1
                .Axes(xlValue).MaximumScale = y
            End With

            ' Afficher un message pour indiquer la planète testée
            MsgBox "Axes ajustés pour la planète : " & planete
        Next planete
    Else
        MsgBox "Le graphique spécifié n'existe pas."
    End If
End Sub

Cordialement

 

[jeanmi]

A voir ....
Planète est en C16 non en C15 donc c'est : planete = Cells(16, 3).Value
Et remplacer :

 ActiveChart.ChartArea.Select
 par
 ActiveSheet.ChartObjects("Graphique 1").Activate

sur la V9 au moins ça ne se plante pas, à voir si ça fait ce que vous voulez.

non j'ai changé le C156 en C15 comme j'ai ajouté le choix des jours, mais ça pas de pb ça fonctionne bien.

 

[sylvanu]

Et ça marche ?

PS : Comme x est toujours égal à y, vous pouvez simplifier et ne pas vous servir de y.

 

[jeanmi]

Et ça marche ?

PS : Comme x est toujours égal à y, vous pouvez simplifier et ne pas vous servir de y.

le code fonctionné bien , j'ai fait beaucoup d'essai et là plus rien , plus de graphique. je vais fermer excel et ré oubre pour voir.