Option Explicit
Sub Relance()
Feuil2.Cells(Application.Match(Feuil1.[C2], Feuil2.[A2:A51], 2), 3) = Feuil1.[A8]
End Sub
Sub Clore()
Feuil2.Cells(Application.Match(Feuil1.[C2], Feuil2.[A2:A51], 2), 4) = Feuil1.[A8]
End Sub
Bonjour à tous,
Salut Fred,
Salut Philippe,
Dans un module standard :
A+ à tousCode:Option Explicit Sub Relance() Feuil2.Cells(Application.Match(Feuil1.[C2], Feuil2.[A2:A51], 2), 3) = Feuil1.[A8] End Sub Sub Clore() Feuil2.Cells(Application.Match(Feuil1.[C2], Feuil2.[A2:A51], 2), 4) = Feuil1.[A8] End Sub
Option Explicit
Sub Relance()
Feuil2.Cells(Application.Match(Feuil1.[C2]+1, Feuil2.[A2:A51], 2), 3) = Feuil1.[A8]
End Sub
Sub Clore()
Feuil2.Cells(Application.Match(Feuil1.[C2]+1, Feuil2.[A2:A51], 2), 4) = Feuil1.[A8]
End Sub
Option Explicit
Sub Relance()
Feuil2.Select
Columns(1).Find(What:=Feuil1.[C2], After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart).Activate
ActiveCell.Offset(0, 2) = Feuil1.[A8]
End Sub
Sub Clore()
Feuil2.Select
Columns(1).Find(What:=Feuil1.[C2], After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart).Activate
ActiveCell.Offset(0, 3) = Feuil1.[A8]
End Sub
Bonjour à tous,
Peux-tu essayer avec :
VB:Option Explicit Sub Relance() Feuil2.Select Columns(1).Find(What:=Feuil1.[C2], After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart).Activate ActiveCell.Offset(0, 2) = Feuil1.[A8] End Sub Sub Clore() Feuil2.Select Columns(1).Find(What:=Feuil1.[C2], After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart).Activate ActiveCell.Offset(0, 3) = Feuil1.[A8] End Sub
A+ à tous
A+ à tousRange("A3").Formula = _
"=IF(AND(R6C2=FALSE,R7C2=FALSE,R6C3=FALSE,R7C3=FALSE),""Ton texte si condition Vrai"",""ton Texte si condition si Faux"")"