checkbox et mise en forme d'un autre onglet

Le
Sunburn
Bonjour,
j'ai une checkbox sur ma feuille "DA".
je voudrais que cela implique une mise en forme sur la feuille "DP" également.
voici ce que j'ai actuellement

Private Sub CheckBox1_Click() 'si la case est cochée, alors les infos EWS
apparaissent
If CheckBox1 = True Then
[B60] = "Login EWS"
[B61] = "Mot de passe EWS"
'met la bone mise en forme
Range("B41:C42").Select
Selection.Copy
Range("B60").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False
'déverouille les cellules de saisie
Range("C60:C61").Select
Selection.Locked = False
Else
[B60] = ""
[B61] = ""
'remet une mise en forme blanche
Range("B49:C50").Select
Selection.Copy
Range("B60").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False
'verouille les cellules de saisie
Range("C60:C61").Select
Selection.Locked = True
End If
End Sub
-
et ce que je voudrais en fait
--
sheets ("DP")
Range("B45:C462").Select
Selection.Copy
Range("B60").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False
-
Merci de votre aide.
YANN
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #17956901
bonjour Sunburn,

sheets ("DP").Range("B45:C462").Copy
sheets ("DP").Range("B60").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False

isabelle





Sunburn a écrit :

Bonjour,
j'ai une checkbox sur ma feuille "DA".
je voudrais que cela implique une mise en forme sur la feuille "DP" également.
voici ce que j'ai actuellement
------
Private Sub CheckBox1_Click() 'si la case est cochée, alors les infos EWS
apparaissent
If CheckBox1 = True Then
[B60] = "Login EWS"
[B61] = "Mot de passe EWS"
'met la bone mise en forme
Range("B41:C42").Select
Selection.Copy
Range("B60").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False
'déverouille les cellules de saisie
Range("C60:C61").Select
Selection.Locked = False
Else
[B60] = ""
[B61] = ""
'remet une mise en forme blanche
Range("B49:C50").Select
Selection.Copy
Range("B60").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False
'verouille les cellules de saisie
Range("C60:C61").Select
Selection.Locked = True
End If
End Sub
----
et ce que je voudrais en fait
-----
sheets ("DP")
Range("B45:C462").Select
Selection.Copy
Range("B60").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False
----
Merci de votre aide.
YANN




Sunburn
Le #17957091
Ok, je te remercie, c'est impecable.
yann

"isabelle" a écrit :

bonjour Sunburn,

sheets ("DP").Range("B45:C462").Copy
sheets ("DP").Range("B60").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False

isabelle





Sunburn a écrit :

>Bonjour,
>j'ai une checkbox sur ma feuille "DA".
>je voudrais que cela implique une mise en forme sur la feuille "DP" également.
>voici ce que j'ai actuellement
>------
>Private Sub CheckBox1_Click() 'si la case est cochée, alors les infos EWS
>apparaissent
>If CheckBox1 = True Then
> [B60] = "Login EWS"
> [B61] = "Mot de passe EWS"
>'met la bone mise en forme
>Range("B41:C42").Select
>Selection.Copy
>Range("B60").Select
>Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
> SkipBlanks:úlse, Transpose:úlse
>Application.CutCopyMode = False
>'déverouille les cellules de saisie
>Range("C60:C61").Select
>Selection.Locked = False
>Else
> [B60] = ""
> [B61] = ""
>'remet une mise en forme blanche
>Range("B49:C50").Select
>Selection.Copy
>Range("B60").Select
>Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
> SkipBlanks:úlse, Transpose:úlse
>Application.CutCopyMode = False
>'verouille les cellules de saisie
>Range("C60:C61").Select
>Selection.Locked = True
>End If
>End Sub
>----
>et ce que je voudrais en fait
>-----
>sheets ("DP")
>Range("B45:C462").Select
>Selection.Copy
>Range("B60").Select
>Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
> SkipBlanks:úlse, Transpose:úlse
>Application.CutCopyMode = False
>----
>Merci de votre aide.
>YANN
>
>



Publicité
Poster une réponse
Anonyme