Christian_koffi
XLDnaute Nouveau
Bonjour,
J'ai réalisé une macro:
cette macro permet de d'enregistrer dans les colonnes AD, AE, AF et AG la première date lorsque je met le chiffre 1 dans les colonnes O, P, Q et R.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 15 And Target.Column <> 16 And Target.Column <> 17 And Target.Column <> 18 Then Exit Sub
Target.Offset(0, 11) = IIf(Target.Value = "", "", Target.Offset(0, 15))
Target.Offset(0, 15) = IIf(Target.Value = "", "", Date)
Target.Offset(0, 15) = IIf(Target.Value <> "", Target.Offset(0, 15).Value, "")
If Target.Offset(0, 11).Value = "" And Target.Offset(0, 16).Value <> "" Then
Target.Offset(0, 15).Value = Date
End If
If Target.Offset(0, 11).Value <> "" And Target.Offset(0, 15).Value <> "" Then
Target.Offset(0, 15).Value = Target.Offset(0, 11).Value
End If
End Sub
Mes problèmes sont les suivants:
- Dans les colonnes l'une des colonnes O, P, Q et R, lorsque je sélectionne plusieurs cellule et je supprime les valeurs de ces cellules en même temps un bug survient :erreur d'exécution '13'
- Lorsque je sélectionne une cellule et que je tire vers le bas pour recopier la même valeur j'ai la même erreur et je ne voie aucun résultat dans les colonnes AD, AE, AF et AG.
Merci.
ci joint le fichier.
J'ai réalisé une macro:
cette macro permet de d'enregistrer dans les colonnes AD, AE, AF et AG la première date lorsque je met le chiffre 1 dans les colonnes O, P, Q et R.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 15 And Target.Column <> 16 And Target.Column <> 17 And Target.Column <> 18 Then Exit Sub
Target.Offset(0, 11) = IIf(Target.Value = "", "", Target.Offset(0, 15))
Target.Offset(0, 15) = IIf(Target.Value = "", "", Date)
Target.Offset(0, 15) = IIf(Target.Value <> "", Target.Offset(0, 15).Value, "")
If Target.Offset(0, 11).Value = "" And Target.Offset(0, 16).Value <> "" Then
Target.Offset(0, 15).Value = Date
End If
If Target.Offset(0, 11).Value <> "" And Target.Offset(0, 15).Value <> "" Then
Target.Offset(0, 15).Value = Target.Offset(0, 11).Value
End If
End Sub
Mes problèmes sont les suivants:
- Dans les colonnes l'une des colonnes O, P, Q et R, lorsque je sélectionne plusieurs cellule et je supprime les valeurs de ces cellules en même temps un bug survient :erreur d'exécution '13'
- Lorsque je sélectionne une cellule et que je tire vers le bas pour recopier la même valeur j'ai la même erreur et je ne voie aucun résultat dans les colonnes AD, AE, AF et AG.
Merci.
ci joint le fichier.