Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel checkbox et mise en forme d'un autre onglet

checkbox et mise en forme d'un autre onglet

2 réponses
Avatar
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:=False, Transpose:=False
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:=False, Transpose:=False
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:=False, Transpose:=False
Application.CutCopyMode = False
----
Merci de votre aide.
YANN
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
isabelle
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




Avatar
Sunburn
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
>
>