Transfert après validation d'une cellule contenant un mot déterminé !

[JBARBE]

Bonjour à tous !

Lorsqu'en colonne F je valide " Compte SG " et seulement " Compte SG " la ligne concernée ( ici 8 colonnes de A à F)

soit transférée dans la feuille " Compte SG " à la ligne inférieur vide ET remplace dans cette feuille en colonne C et F " Compte SG " par " Compte BP "

J'ai bien ma petite idée mais je suis sûr que votre aide saura mieux me convenir !

Merci de votre aide!

 

[pierrejean]

Re : Transfert après validation d'une cellule contenant un mot déterminé !

Bonjour JBARBE

Vois si cela te convient

 

[JBARBE]

Re : Transfert après validation d'une cellule contenant un mot déterminé !

Merci Pierre Jean c'est presque cela !

Seulement j'aurais voulu que dans les colonnes C & F rien ne soit changé dans la feuille Compte BP inscrit ( Compte SG) et que dans la feuille Compte SG les colonnes correspondantes deviennent Compte BP

A+

 

[JBARBE]

Re : Transfert après validation d'une cellule contenant un mot déterminé !

Voilà, J'ai modifié la macro ainsi suite à ma demande :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Column = 6 And Target.Value = "Compte SG" Then
  Range("A" & Target.Row & ":F" & Target.Row).Copy Destination:=Sheets("Compte SG").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
  Sheets("Compte SG").Select
  ActiveCell.Offset(0, 2) = "Compte BP"
  ActiveCell.Offset(0, 5) = "Compte BP"
  Sheets("Compte BP").Select
  End If
End Sub
Application.ScreenUpdating = True

Encore une fois MERCI Pierre Jean pour tout !

 

[JBARBE]

Re : Transfert après validation d'une cellule contenant un mot déterminé !

Malheureusement mes testes ne sont pas concluent !

Je sollicite la personne qui pourrait bien m'aider encore une fois !

Merci !

 

[pierrejean]

Re : Transfert après validation d'une cellule contenant un mot déterminé !

Re

Teste ceci

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 And Target.Value = "Compte SG" Then
  x = Sheets("Compte SG").Range("A" & Rows.Count).End(xlUp).Row + 1
  Range("A" & Target.Row & ":F" & Target.Row).Copy Destination:=Sheets("Compte SG").Range("A" & x)
  Sheets("Compte SG").Range("C" & x) = "Compte BP"
  Sheets("Compte SG").Range("F" & x) = "Compte BP"
End If
End Sub

 

[Si...]

Re : Transfert après validation d'une cellule contenant un mot déterminé !

salut

Si… j’ai bien compris, c’est un problème de virement interne entre 2 comptes.
Voilà un exemple de ce que je fais pour moi avec
1 macro commune dans ThisWorkbook.
1 ligne pour le solde initial (permet de ne programmer qu’une formule).
1 code VI pour l'opération
On peut généraliser à plus de 2 comptes.

 

[JBARBE]

Re : Transfert après validation d'une cellule contenant un mot déterminé !

C'est PARFAIT ! J'avoue que j'y aurais laissé des jours et des nuits sur ce problème !

Bravo Pierre Jean pour ton efficacité qui s’avère indispensable sur ce forum !

Bonne soirée et A+

 

[JBARBE]

Re : Transfert après validation d'une cellule contenant un mot déterminé !

Merci Si pour t'être penché sur mon problème mais Pierre Jean m'a donné la solution !

 

[Si...]

Re : Transfert après validation d'une cellule contenant un mot déterminé !

salut

cela pourra peut-être servir à ceux qui gèrent des VI dans les 2 sens : compte1 vers compte 2 ou compte 2 vers compte 1😉