If avec un crière en decallage

[flo2002]

Re bonjour,
je me rends compte dans mon intitulé que le sujet va etre dur à expliquer, mais bon.

Je voudrais une macro avec un offset je pense.
Il faudrai qu'elle compare deux valeur:

une dans la cellule ou j'entre un chiffre et une qui se situe à trois cases à droites et une en hauteur de la premiere. il fodrai aussi que la macro ne fonctionne que dans un perimetre donné pouvant etre definit en nommant la plage. si la premier est superieur à la seconde alors msgbox.


En esperant etre clair.

Je vous remercie par avance.

 

[flo2002]

une piste si ce peut vous eclaircir

Sub ecrireN()

Range ('N')

Dim X As cell
If X < Cells.Offset(-1, 5) Then
MsgBox ('Attention!!!')
End If

End Sub

il est possible que ceci ne veuille rien dire!

merci d'avance

 

[flo2002]

Sub ecrireN()

Range ('N')

Dim X As Validation

If X Cells.Offset(-1, 5) Then
MsgBox ('oups')
Else
MsgBox ('lol')

End If
End If

End Sub

pour faire avancer le chimbilik (dsl)

 

[Bricofire]

Bonjour Flo2002, 🙂
Vois le classeur joint, un début de piste... 😉

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range('Cadre')) Is Nothing Then 'Test : si la négation de l'intersection de la colonne de la cellulle selectionnée avec _
'la colonne voulue est rien (donc négation de : (on n'a pas cliqué dans une case qui nous intéresse..)= on a cliqué où on veut réagir)
If Target > Target.Offset(1, 3) Then
MsgBox 'Warning !'
End If
End If
End Sub



Bonne journée,

Brico [file name=BricoRep2.zip size=8150]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/BricoRep2.zip[/file]

 

[flo2002]

Merci je vais tester ca et je tiens au courant