Discussion :

[anyah]

bonjour,

tout d'abord merci à ceux qui répondront.

voici mon début de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim sh1 As Worksheet, sh5 As Worksheet

Set sh1 = Sheets("Arc Movement LH")
Set sh5 = Sheets("Levelling Phase LH")

    'Location 1
    If Sheets("Levelling Phase LH").OpB_jack.Value = True Then        
        sh1.Range("I20").Value = sh5.Range("I34").Value
        sh1.Range("K20").Value = sh5.Range("K34").Value
        sh1.Range("L20").Value = sh5.Range("L34").Value
    ElseIf sh5.OpB_airbag.Value = True Then                 
        sh1.Range("I20").Value = sh5.Range("I36").Value
        sh1.Range("K

mon problème se situe sur la ligne rouge
l'utilisation de sh5 me donne une erreur alors que dans la ligne bleue j'ai remplacé le sh5 par sa valeur et là ca marche

quelqu'un pourrait il me sdire pourquoi ? merci

[Daranc]

pas une idée mais lorsque tu mets des noms de feuille en variable évite les espace (comme les accents) j'ignore pourquoi VBA n'aime pas les espaces je remplace toujours mes espaces par des undersores sheets("les ages") remplacé sheets("les_ages")
peut être ce qui n'est pas digéré

[decondelite]

pas une idée mais lorsque tu mets des noms de feuille en variable évite les espace (comme les accents) j'ignore pourquoi VBA n'aime pas les espaces je remplace toujours mais espaces par des undersores sheets("les ages") remplacé sheets("les_ages")
peut être ce qui n'est pas digéré

Non pour moi cela ne pose pas de problème, même avec des accents et tout le bazar.

Moi je pense savoir: tu as déclaré OpB_jack et OpB_airbag comme étant des range je ne sais où. OR, si tu veux y accéder, tu n'as pas besoin de préciser de feuille devant. Donc fais comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
If OpB_jack.Value = True Then        
        sh1.Range("I20").Value = sh5.Range("I34").Value
        sh1.Range("K20").Value = sh5.Range("K34").Value
        sh1.Range("L20").Value = sh5.Range("L34").Value
    ElseIf OpB_airbag.Value = True Then                 
        sh1.Range("I20").Value = sh5.Range("I36").Value
        sh1.Range("K

Je peux me tromper: peut-être que tu as ajouté des procédures property à tes feuilles, mais bon en général on ne le fait pas.

[OrDonc]

Bonjour,

Il me semble que tu testes un "OptionButton" que tu as renommé.
Si c'est le cas, vérifie l'existence et l'orthographe de "OpB_airbag" dans la feuille
"Levelling Phase LH".

[anyah]

bonjour a tous,

alors j'ai vérifié toutes mes orthographes pas de souci.
je ne peux pas enlever le sheets("") devant car je susi dans un module et la procédure va etre appelé plusieurs fois.

[Daranc]

Ouf la correction se reporte dans la citation
tu définis tes variables feuille en public ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

public sh1 as range

par contre Deconduite annonce quelque chose que tu devrait creuser si tes optionbutton sont appelé par leur nom il ne doit pas avoir besoin de chercher la feuille même si tu appelles plusieurs fois la procédure. les optionbutton porte tous un nom différent et sont donc unique ou alors; mettre juste un worksheets. devant .
mais sa remarque est judicieuse

[OrDonc]

Bonjour Tous

Quand la macro ne trouve pas le nom, alors tu as ce message !

...
alors j'ai vérifié toutes mes orthographes pas de souci.
...

comment ? visuellement ?
Sais-tu qu'un espace en fin de mot n'est pas visible ?
Essaie de faire un Copier du nom est le Coller dans la macro.