Discussion :

[eliot.raymond]

Bonjour a toutes et tous, forum

Comment svp effectuez un petit test dans le feuillet (Axa) pour recopier une cellule dans une autre en vba

Voir svp le petit fichier ci joint pour explications complémentaires

bonne semaine a vous

et merci de votre temps

Raymond

[White Mibu]

Slt,

à mettre dans Microsoft Excel Objets, feuil 1 (AXA) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Not Intersect(Target, Range("B2:B30")) Is Nothing Then
        Cells(Target.Row + 1, 3) = Cells(Target.Row, 2).Value
    End If
 
End Sub

Cordialement

[eliot.raymond]

Salut white Mibu

Merci pour ta réponse, ca fonctionne,,, mais je me suis mal exprimé.

En fait j'ecris une somme dans la feuille (compte) cette somme est aussitot copié dans la feuille (Axa) en face de la date du jour

c'est a ce moment quand une des cellules entre B2:B30 est renseignée,,,il faut quelle soit recopier également plage C3:C31

presque que comme tu a fait, je ne dois rien entrer manuellement dans la feuille (axa)

Ex:
(1) Somme copié dans ligne jaune feuille (compte)
(2) Transfert automatique >> feuille (Axa) en face date du jour

élément manquant

(3) Copie également dans Ex: B2>>C3
B3>>C4
B4>>C5
etc, etc

Merci de ton aide, bonne après midi

manque plus que ce test et fichier fini enfin

Raymond

[White Mibu]

Ah ok ! ^^

Dans la macro de l'onglet compte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D23:O23")) Is Nothing Then
  If Target.Count > 1 Then Exit Sub
  Application.EnableEvents = False
    Dim dernLign, dernLign1 As Long
 
    With Sheets("Axa")
 
    dernLign = .Range("A65536").End(xlUp).Row '*** + 1
    .Cells(dernLign, 2) = Target.Offset
    .Cells(dernLign + 1, 3) = Target.Offset
    If Target.Value = "" Then
    dernLign1 = .Range("B1").End(xlDown).Row
    .Cells(dernLign1, 2) = ""
    Else
    End If
    End With
  End If
  Application.EnableEvents = True
End Sub

il faut que tu ajoute cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Cells(dernLign + 1, 3) = Target.Offset

Cordialement

[eliot.raymond]

Salut White Mibu,

Merci pour ta réponse le problème est résolu et mon fichier est fini.

Bonne fètes de fin d'années a toi si je ne reviens pas d'ici la, un autre projet

est en cours, (LOL).

Je passe ce post en résolu

Encore merci de ton savoir et de ton aide

Cordialement Raymond