Fonction SI
Bonjour,
Je travaille sur un code qui me permet de sélectionner la dernière cellule non vide de la colonne A sur la feuille "BASE" et qui va coller en fonction de la valeur de cette cellule dans la feuille "YF" ou "BP".
Le collé se fait systématiquement dans la feuille "BP".
Je pense que j'ai mal écrit ma fonction SI.
Auriez-vous une idée?
Merci d'avance
Sub Bouton2_Clic()
Sheets("BASE").Select
Range("A65536").End(xlUp).Select
Selection.Copy
If Range("A65536").Value = YF Then
Sheets("YF").Select
End If
If Range("A65536").Value = BP Then
Sheets("BP").Select
End If
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End Sub
Bonsoir,
Nouveau lecteur de code, je mettrais bien entre guillemet "YF" et "BP"
Sub Bouton2_Clic()
Sheets("BASE").Select
Range("A65536").End(xlUp).Select
Selection.Copy
If Range("A65536").Value = "YF" Then
Sheets("YF").Select
End If
If Range("A65536").Value = "BP" Then
Sheets("BP").Select
End If
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End SubA toute fin utile, sans conviction
Cordialement,
Leakim
çà me paraissait plus cohérent avec des guillemets également mais çà ne suffit pas.
Un collègue m'a dépanné:
Sub Bouton1_Clic()
Sheets("BASE").Select
Range("A65536").End(xlUp).Select
Selection.Copy
Select Case Selection.Value
Case "YF"
Sheets("YF").Select
Case "BP"
Sheets("BP").Select
Case Else
End Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End Sub