pb avec mon code

[aeque]

Bonjour le fofo

voilà j'ai un petit soucis avec ce code :

Private Sub CheckBox22_AfterUpdate()
Application.ScreenUpdating = False
Dim myRange8 As Range
Sheets("Main Informations").Select
If Sheets("Formules").Range("Q2") = True Then
   Set myRange8 = Range("main_informations").Find(Sheets("Formules").Range("V1"), , xlValues, xlWhole).Offset(0, 43)
   myRange8.Select
   ActiveCell = "X"
  Else
 Set myRange8 = Range("main_informations").Find(Sheets("Formules").Range("V1"), , xlValues, xlWhole).Offset(0, 43)
    myRange8.Select
    ActiveCell.ClearContents
  End If
Application.ScreenUpdating = True
End Sub

Lorsque j'effectue la macro la feuille dans laquelle Range("main_informations") se trouve s'affiche à l'écran alors que je souhaiterai qu'elle reste invisible sur l'écran.


Merci du coup de main

 

[Efgé]

Re : pb avec mon code

Bonjour aeque,
Peut être avec ça. (pas testé car pas de fichier exemple)

[COLOR=blue]Sub[/COLOR] test()
Application.ScreenUpdating = [COLOR=blue]False[/COLOR]
[COLOR=blue]Dim[/COLOR] myRange8 [COLOR=blue]As[/COLOR] Range
[COLOR=blue]With[/COLOR] Sheets("Main Informations")
    [COLOR=blue]If[/COLOR] Sheets("Formules").Range("Q2") = [COLOR=blue]True Then[/COLOR]
       [COLOR=blue]Set[/COLOR] myRange8 = .Range("main_informations").Find(Sheets("Formules").Range("V1"), , xlValues, xlWhole).Offset(0, 43)
       myRange8 = "X"
      [COLOR=blue]Else[/COLOR]
     [COLOR=blue]Set[/COLOR] myRange8 = .Range("main_informations").Find(Sheets("Formules").Range("V1"), , xlValues, xlWhole).Offset(0, 43)
        myRange8.ClearContents
      [COLOR=blue]End If[/COLOR]
[COLOR=blue]End With[/COLOR]
Application.ScreenUpdating = [COLOR=blue]True[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Cordialement

 

[aeque]

Re : pb avec mon code

Désolé le doit refaire mon fichier car il fait plus de 5MO là ....

sinon je ne peux pas faire ca.

J'ai oublié de préciser que cette macro s'effectue lorsque je clique dans une checkbox (Private Sub CheckBox22_AfterUpdate())

 

[Efgé]

Re : pb avec mon code

Re
A tu essayé de mettre ma proposition à la place de la tienne (J'ai mis sub, mais tu peux la mettre dans une Private Sub CheckBox22_AfterUpdate()
)
Cordialement

 

[aeque]

Re : pb avec mon code

Merci beaucoup désolé je pensais que je m'étais mal exprimé

Ca marche nikel!!!!!! encore merci