Je souhaiterais que si et seulement si j'ai tapé un element dans la cellule
I60, copier la plage de A22 à R59 et la coller en A61.
Mais je souhaiterais tout de meme avoir la possibilité de ne pas faire cette
action au cas ou je taperais par mégarde quelque chose en I60, l'ideal
serait qu'au moment ou je taperais en I60 qu'un message me demande si je
souhaite effectivement copier la plage ou annuler l'action.
Me suis-je bien fait comprendre ? Here is the questionnnnne
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
FdeCourt
Bonsoir,
Un solution :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$I$60" Then msg = MsgBox("Voulez-Vous copier les cellules ?", 4) If msg = 6 Then Range("A22:R59").Copy Range("A61") End If End Sub
Ce n'estpas un module, mais a mettre dans le code de ta feuille.
Bonjour,
Je souhaiterais que si et seulement si j'ai tapé un element dans la cel lule I60, copier la plage de A22 à R59 et la coller en A61. Mais je souhaiterais tout de meme avoir la possibilité de ne pas faire cette action au cas ou je taperais par mégarde quelque chose en I60, l'ideal serait qu'au moment ou je taperais en I60 qu'un message me demande si je souhaite effectivement copier la plage ou annuler l'action.
Me suis-je bien fait comprendre ? Here is the questionnnnne
Merci
Manu
Bonsoir,
Un solution :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$60" Then
msg = MsgBox("Voulez-Vous copier les cellules ?", 4)
If msg = 6 Then Range("A22:R59").Copy Range("A61")
End If
End Sub
Ce n'estpas un module, mais a mettre dans le code de ta feuille.
Bonjour,
Je souhaiterais que si et seulement si j'ai tapé un element dans la cel lule
I60, copier la plage de A22 à R59 et la coller en A61.
Mais je souhaiterais tout de meme avoir la possibilité de ne pas faire cette
action au cas ou je taperais par mégarde quelque chose en I60, l'ideal
serait qu'au moment ou je taperais en I60 qu'un message me demande si je
souhaite effectivement copier la plage ou annuler l'action.
Me suis-je bien fait comprendre ? Here is the questionnnnne
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$I$60" Then msg = MsgBox("Voulez-Vous copier les cellules ?", 4) If msg = 6 Then Range("A22:R59").Copy Range("A61") End If End Sub
Ce n'estpas un module, mais a mettre dans le code de ta feuille.
Bonjour,
Je souhaiterais que si et seulement si j'ai tapé un element dans la cel lule I60, copier la plage de A22 à R59 et la coller en A61. Mais je souhaiterais tout de meme avoir la possibilité de ne pas faire cette action au cas ou je taperais par mégarde quelque chose en I60, l'ideal serait qu'au moment ou je taperais en I60 qu'un message me demande si je souhaite effectivement copier la plage ou annuler l'action.
Me suis-je bien fait comprendre ? Here is the questionnnnne
Merci
Manu
Manu
Super, merci c'est nickel
Manu
"FdeCourt" a écrit dans le message de news:
Bonsoir,
Un solution :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$I$60" Then msg = MsgBox("Voulez-Vous copier les cellules ?", 4) If msg = 6 Then Range("A22:R59").Copy Range("A61") End If End Sub
Ce n'estpas un module, mais a mettre dans le code de ta feuille.
Bonjour,
Je souhaiterais que si et seulement si j'ai tapé un element dans la cellule I60, copier la plage de A22 à R59 et la coller en A61. Mais je souhaiterais tout de meme avoir la possibilité de ne pas faire cette action au cas ou je taperais par mégarde quelque chose en I60, l'ideal serait qu'au moment ou je taperais en I60 qu'un message me demande si je souhaite effectivement copier la plage ou annuler l'action.
Me suis-je bien fait comprendre ? Here is the questionnnnne
Merci
Manu
Super, merci c'est nickel
Manu
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1168282333.695241.51950@38g2000cwa.googlegroups.com...
Bonsoir,
Un solution :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$60" Then
msg = MsgBox("Voulez-Vous copier les cellules ?", 4)
If msg = 6 Then Range("A22:R59").Copy Range("A61")
End If
End Sub
Ce n'estpas un module, mais a mettre dans le code de ta feuille.
Bonjour,
Je souhaiterais que si et seulement si j'ai tapé un element dans la
cellule
I60, copier la plage de A22 à R59 et la coller en A61.
Mais je souhaiterais tout de meme avoir la possibilité de ne pas faire
cette
action au cas ou je taperais par mégarde quelque chose en I60, l'ideal
serait qu'au moment ou je taperais en I60 qu'un message me demande si je
souhaite effectivement copier la plage ou annuler l'action.
Me suis-je bien fait comprendre ? Here is the questionnnnne
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$I$60" Then msg = MsgBox("Voulez-Vous copier les cellules ?", 4) If msg = 6 Then Range("A22:R59").Copy Range("A61") End If End Sub
Ce n'estpas un module, mais a mettre dans le code de ta feuille.
Bonjour,
Je souhaiterais que si et seulement si j'ai tapé un element dans la cellule I60, copier la plage de A22 à R59 et la coller en A61. Mais je souhaiterais tout de meme avoir la possibilité de ne pas faire cette action au cas ou je taperais par mégarde quelque chose en I60, l'ideal serait qu'au moment ou je taperais en I60 qu'un message me demande si je souhaite effectivement copier la plage ou annuler l'action.
Me suis-je bien fait comprendre ? Here is the questionnnnne
