Bonsoir à tous et à toutes !
Voilà, je viens de finir une boucle pour enregistrer les valeurs e situant dans des cellules.
Elle fonctionne très bien chez moi, sauf pour un point.
Lorsque je supprime une valeur via la backspace, tout va bien. Mais si j'use du Delete, j'ai une erreur d'exécution 13 qui m'indique une incompatibilité de type.
Je ne sais pas comment désactiver la macro en cas d'utilisation de cette touche ...
Voici la boucle :
Merci à tous,
Adrien
Voilà, je viens de finir une boucle pour enregistrer les valeurs e situant dans des cellules.
Elle fonctionne très bien chez moi, sauf pour un point.
Lorsque je supprime une valeur via la backspace, tout va bien. Mais si j'use du Delete, j'ai une erreur d'exécution 13 qui m'indique une incompatibilité de type.
Je ne sais pas comment désactiver la macro en cas d'utilisation de cette touche ...
Voici la boucle :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Coms As Integer
Dim Register As Integer
Dim ComsString As String
Dim RegisterSting As String
Coms = 42
Register = 45
Do Until Register = 85
ComsString = CStr(Coms)
RegisterString = CStr(Register)
On Error GoTo Fin
If Target = ActiveSheet.Range("B" & ComsString) Then
ActiveSheet.Range("B" & ComsString).Copy
If Sheets("Accueil").OptionButton1.Value = True Then
Sheets("DATA").Select
ActiveSheet.Range("B" & RegisterString).Select
Selection.PasteSpecial Paste:=xlPasteValues
Else
If Sheets("Accueil").OptionButton2.Value = True Then
Sheets("DATA").Select
ActiveSheet.Range("C" & RegisterString).Select
Selection.PasteSpecial Paste:=xlPasteValues
Else
If Sheets("Accueil").OptionButton3.Value = True Then
Sheets("DATA").Select
ActiveSheet.Range("D" & RegisterString).Select
Selection.PasteSpecial Paste:=xlPasteValues
Else
If Sheets("Accueil").OptionButton4.Value = True Then
Sheets("DATA").Select
ActiveSheet.Range("E" & RegisterString).Select
Selection.PasteSpecial Paste:=xlPasteValues
Else
MsgBox ("Veuillez sélectionner une période à partir de l'accueil.")
End If
End If
End If
End If
Else
End If
Fin:
Coms = Coms + 47
Register = Register + 1
Loop
End Sub
Merci à tous,
Adrien