Bonsoir a vous,
J’ai besoin a nouveau de votre aide, et je vous remercie d'avance,
Ce que je comprends pas c'est que ce code marche correctement pour la première partie ( la partie cheque), mais il y'as un problème au niveau de la deuxième partie(partie lettre de change), qui se résume que le transfert s'effectue sur deux linges, alors que normalement tous dois être copier sur une seule linge. Merci de votre aide
J’ai besoin a nouveau de votre aide, et je vous remercie d'avance,
Ce que je comprends pas c'est que ce code marche correctement pour la première partie ( la partie cheque), mais il y'as un problème au niveau de la deuxième partie(partie lettre de change), qui se résume que le transfert s'effectue sur deux linges, alors que normalement tous dois être copier sur une seule linge. Merci de votre aide
Code:
Private Sub Enregister_Click()
Dim varDoublon As Variant
If Reglement.Value = "CHEQUE" Then
Sheets("cheque").Activate
Range("E1").Value = Montant.Value
Range("B4").Value = Beneficaire.Value
Range("G1").Value = Numero.Value
Range("H1").Value = Cause.Value
Sheets("Effet_emis").Activate 'Sélection de l'onglet Effets_emis
Range("g3").NumberFormat = "[Red]-#,##0.00 """""
Range("g3").HorizontalAlignment = xlRight
Range("K3:Q3").Copy 'Copie des cellules K3 a Q3
Sheets("bmce").Activate
On Error Resume Next
Columns(3).Find(Numero.Value, , xlValues, xlWhole).Select
If Err.Number Then
Range("C65536").End(xlUp).Offset(1, 0).Value = Numero.Value
Range("A3").Offset.End(xlDown).Offset(1, 0).Select 'Sélection de la cellule en dessous du dernier enregistrement de la colonne A
'Coller valeur
Selection.PasteSpecial Paste:=xlValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("A3").CurrentRegion.Select 'Sélection de la zone en cours
Range("A3").Select 'Sélection de la cellule A1
Else
MsgBox "Cette valeur existe déjà", vbExclamation, ThisWorkbook.Name
End If
End If
If Reglement.Value = "LETTRE DE CHANGE" Then
Sheets("effet").Activate
Range("G1").Value = Numero.Value
Range("C2").Value = Beneficaire.Value
Range("F4").Value = Echeance.Value
Range("F6").Value = Montant.Value
Range("C6").Value = Cause.Value
Sheets("Effet_emis").Activate 'Sélection de l'onglet Effets_emis
Range("K2:P2").Copy 'Copie des cellules I2 à N2
On Error Resume Next
Columns(1).Find(Numero.Value, , xlValues, xlWhole).Select
If Err.Number Then
Range("A65536").End(xlUp).Offset(1, 0).Value = Numero.Value
Range("A3").Offset.End(xlDown).Offset(1, 0).Select 'Sélection de la cellule en dessous du dernier enregistrement de la colonne A
'Coller valeur
Selection.PasteSpecial Paste:=xlValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("A1").CurrentRegion.Select 'Sélection de la zone en cours
Range("A1").Select 'Sélection de la cellule A1
Else
MsgBox "Cette valeur existe déjà", vbExclamation, ThisWorkbook.Name
End If
End If
If Reglement.Value = "" Then
MsgBox ("vous devez choisir une feuille")
End If
End Sub