Discussion :

[Vba14]

Bonjour à toutes et à tous,

Voici mon problème : Dans une feuille Excel ("Arch_Bât"), je saisie des données sans l'aide d'un formulaire. Je souhaiterai qu'à chaque fois que je saisie une ligne dans mon tableau et que je passe à la ligne suivante, la précédente soit copiée vers un tableau de la feuille ("Général") à partir de la ligne 1540.

Donc insertion d'une ligne, et copie des données.

Est-ce possible sans formulaire et comment ?

Merci par avance pour votre aide

Amicalement

[Thautheme]

Bonjour VBA, bonjour le forum,

Le problème est de savoir à quel moment on sait que la ligne est remplie (quelle colonne) pour déclencher le copier/coller ? Si tu t'es trompé et que tu modifies une donnée après le copier/coller comment fait-on ?

[Vba14]

Bonjour Thautheme,

Merci pour ta réponse.

La dernière colonne est la colonne P du tableau de la feuille "Arch_Bât". Les tableaux sont identiques dans les deux feuilles, mais le tableau général concentre plusieurs feuilles.

[Vba14]

Bonjour halaster08,

Merci pour ta réponse, nos posts se sont croisés.

Mais comment fonctionne ton code ? Désolé je ne comprends pas Comment dois-je le lancer ?

[halaster08]

Comment dois-je le lancer ?

Je ne comprends pas ta question, comme n'importe quel macro ? Mon code n'a rien de particulier.

[Vba14]

Voilà ce que j'essaie de faire mais je peine beaucoup.

J'ai trouvé un modèle de code sur le forum que j'essaie d'adapter à ma situation, mais je rame un peu.
Est-ce que je suis sur la bonne voix ?

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
 
Sub validation_Copie()
Dim derlig As Integer, i As Integer
Dim validée As String 
Application.ScreenUpdating = False
With Sheets("Général") derlig = .Range("A65536").End(xlUp).Row + 1
End With
Sheets("Arch_Bât").Activate For i = Sheets("Arch_Bât").Range("E65536").End(xlUp).Row To 2 With Sheets("Général")
'à partir d'ici on recopie les données de la feuille "Arch_Bât" vers la feuille "Général"
.Cells(derlig, 1) = Sheets("Arch_Bât").Cells(i, 1)
.Cells(derlig, 2) = Sheets("Arch_Bât").Cells(i, 2)
.Cells(derlig, 3) = Sheets("Arch_Bât").Cells(i, 3)
……
.Cells(derlig, 16) = Sheets("Arch_Bât").Cells derlig = derlig + 1
End With
End If
Next
Sheets("Arch_Bât").Activate
Application.ScreenUpdating = True
End Sub

[halaster08]

Bonjour,

A lancer manuellement quand tu as fini de remplir ta ligne avec n'importe quel cellule de cette ligne activée

Code :

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

1
2
3
4
sub insert_et_copie
sheets("Général").rows(1540).insert
activecell.entirerow.copy destination:= sheets("Général").rows(1540)
end sub

[Patrice740]

Bonjour,

Je viens de survoler les posts de ce fil, au début c'était 1540, puis 1530, 1555, ...
Il faudrait savoir comment peut-on déterminer la destination sans l'écrire en dur dans la macro.
- la dernière ligne ?
- la ligne située après ou avant la ligne qui contient xxxx dans la colonne cccc ?
- ....

[Vba14]

Bonjour Patrice740,

Merci pour ta participation. C'est normal que le numéro de la ligne évolue puisque j'ajoute des données. Au début de la conversation j'étais à la ligne 1540 et maintenant 1555.
Mes nouvelles données doivent s'insérer ensuite, les unes après les autres, après le double-clic.

[Patrice740]

C'est normal que le numéro de la ligne évolue puisque j'ajoute des données. Au début de la conversation j'étais à la ligne 1540 et maintenant 1555.
Mes nouvelles données doivent s'insérer ensuite, les unes après les autres, après le double-clic.

Ça ne répond pas à la question : « comment peut-on déterminer la destination sans l'écrire en dur dans la macro »
Puisque tu insère, c'est qu'il y a quelque chose après ...

[Vba14]

Bonjour le forum, bonjour Patrice740,

En effet, il me faut insérer les nouvelles données les unes après les autres entre la ligne 1560 et 1561 (des données ont été ajoutées depuis notre dernière discussion).
Donc, les prochaines nouvelles données viendront les unes après les autres à partir de la ligne 1561.

Voici une copie écran pour vous permettre de visualiser le fichier

Doc1.docx

[halaster08]

Voici une copie écran pour vous permettre de visualiser le fichier
Doc1.docx

Pourquoi planquer ta capture d'écran dans un docx ...
Tu sais qu'on peut faire apparaitre directement les images dans le message

En effet, il me faut insérer les nouvelles données les unes après les autres entre la ligne 1560 et 1561 (des données ont été ajoutées depuis notre dernière discussion).
Donc, les prochaines nouvelles données viendront les unes après les autres à partir de la ligne 1561.

Je pense que tu n'as pas compris la question, on a bien compris que tu ajoutes des lignes a chaque fois, mais puisque ce n'est pas la dernière ligne de ton tableau et qu'on ne peut pas y mettre une valeur fixe, comment faire que la macro reconnaisse la ligne en question ? comment toi tu fais pour savoir où copier ? quelle particularité a cette ligne ?