Bonjour mesdames, messieurs,
Je souhaite appliquer une formule différente, en fonction de la case modifée à une case décallée sur l'axe horizontale. dans cet état actuel cela fonctionne très bien si l'on valide la case avec la touche entrée mais si l'on utilise tabulation ou n'importe qu'elle autre touche mon offset ne gère pas bien. Connaissez vous un moyen d'obtenir ce que je souhaite ?
Merci d'avance pour vos idées
Private Sub Worksheet_Change(ByVal Target As Range)
Formule_RGE =blabla
Formule_RLE =blablabla
Formule_FIAB =blablablabla
If Not Intersect(Target, Range("AD:AD")) Is Nothing Then
If Target <> "" Then
ActiveCell(0, -1).Select
ActiveCell.FormulaR1C1 = Formule_RGE
ActiveCell.Value = ActiveCell.Value
ActiveCell(1, 0).Select
ActiveCell.FormulaR1C1 = Formule_RLE
ActiveCell.Value = ActiveCell.Value
End If
End If
If Not Intersect(Target, Range("AE:AE")) Is Nothing Then
If Target <> "" Then
ActiveCell(0, -1).Select
ActiveCell.FormulaR1C1 = Formule_FIAB
ActiveCell.Value = ActiveCell.Value
End If
End If
If Not Intersect(Target, Range("AG:AG")) Is Nothing Then
If Target <> "" Then
ActiveCell(0, -5).Select
ActiveCell.FormulaR1C1 = Formule_RLE
ActiveCell.Value = ActiveCell.Value
End If
End If
If Not Intersect(Target, Range("AI:AI")) Is Nothing Then
If Target <> "" Then
ActiveCell(0, -7).Select
ActiveCell.FormulaR1C1 = Formule_RLE
ActiveCell.Value = ActiveCell.Value
End If
End If
End Sub