Bonjour à vous,

Je viens vers vous car je galère un peu dans mon programme... Je m'explique :

J'ai un formulaire qui envoie dans un tableau sur la ligne 4, sur cette ligne, j'ai déjà pas mal de macros qui reprennent ces infos donc super important.

Le problème, c'est que quand je fais un deuxième formulaire/troisième/quatrième... ma nouvelle ligne dans mon tableau va écraser l'éxistant, donc elle ne passe pas par la ligne 4.

Mon idéal, chaque nouveau formulaire passe par la ligne 4, s'il y avait déjà des infos, elles partent automatiquement à la ligne d'en dessous.

Ça parait simple et pourtant, je n'y arrive pas, faut dire que je débute.

Désolé si le sujet a déjà été traité...

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Sheets("Base de données").Select
    valeurA4 = Range("A4").Value
    If valeurA4 = "" Then
    Range("A4").Select
    Rows(ActiveCell.Row).Select '(sélection de la ligne à déplacer)
    Selection.Cut
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    Else
    Range("A4").Select
    ActiveCell.Offset(-1, 0).Range("A1").Select
    ligne_active_base = ActiveCell.Row
 
    End If
MERCI pour votre aide