Bonsoir tout le monde,
Grand coup de chapeau a tous ceux qui depannent sur ce site, c'est agreable de pouvoir compter sur vous
Gros probleme avec ma macro ci-dessous!!!!!!!
Si quelqu'un est connecte et peut m'aider, cela me depannerait
SUB PBL()
' ref PSES
'
'
Dim PSES As String
Range("F5").Select
PSES = ActiveCell.Value
Sheets("donnee3").Select
If Worksheets("donnee3").AutoFilterMode Then
Selection.AutoFilter
End If
Columns("D").Select
Selection.AutoFilter
ActiveSheet.Range("$D$1:$D$100").AutoFilter Field:=1, Criteria1:=PSES
'
'
' que faire si PSES n'est pas dans colonne D
Sheets("donnee3").Select
Range("d6:d100").Select
Selection.Copy
Sheets("tab2").Select
Range("f8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
'
End Sub
Si ma macro ne trouve pas de valeur PSES il faudrait que je puisse afficher 0 en f8 sur feuille "tab2"
Merci beaucoup de l'aide
Grand coup de chapeau a tous ceux qui depannent sur ce site, c'est agreable de pouvoir compter sur vous
Gros probleme avec ma macro ci-dessous!!!!!!!
Si quelqu'un est connecte et peut m'aider, cela me depannerait
SUB PBL()
' ref PSES
'
'
Dim PSES As String
Range("F5").Select
PSES = ActiveCell.Value
Sheets("donnee3").Select
If Worksheets("donnee3").AutoFilterMode Then
Selection.AutoFilter
End If
Columns("D").Select
Selection.AutoFilter
ActiveSheet.Range("$D$1:$D$100").AutoFilter Field:=1, Criteria1:=PSES
'
'
' que faire si PSES n'est pas dans colonne D
Sheets("donnee3").Select
Range("d6:d100").Select
Selection.Copy
Sheets("tab2").Select
Range("f8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
'
End Sub
Si ma macro ne trouve pas de valeur PSES il faudrait que je puisse afficher 0 en f8 sur feuille "tab2"
Merci beaucoup de l'aide