Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

If avec un crière en decallage

  • Initiateur de la discussion Initiateur de la discussion flo2002
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

flo2002

XLDnaute Impliqué
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.
 
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
 
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]
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…