Discussion :

[vanille972]

bonjour,
j'avais le même probleme que cobra85 dans cette discussion et votre réponse m'a permis d'avancer; malheureusement, j'ai encore un souci, quand j'applique cette macro sur une base de données que j'avais déjà et qui contient 64 lignes, la prochaine s'insère à la ligne 132 . pouvez-vous m'aidez SVP

[ouskel'n'or]

Supprime tes ligne 65 à 132. Tu as forcément au moins un espace ou "une crotte" dans une cellule.
Avec la syntaxe citée pour rechercher la dernière ligne, tu n'as pas à enregistrer le fichier après suppression des lignes (suggéré dans ma réponse à ton mp)
A+

[vanille972]

merci pour ton aide. j'ai supprimé les lignes et ça fonctionne, seulement, maintenant, mon formulaire se vide à chaque transposition. que faire?

[getule]

bonjour
j'espere que t'as pas supprimé avec du code vba !!!!!
montres nous ton bout de code stp pour voir mieux

[jfontaine]

Une autre solution que Range("A1").End(xlUp).Row qui peut etre pratique dans certains cas (comme le tiens apparemment).
C'est d'utiliser une boucle qui vérifie si sur une colonne obligatoire la cellule est vide

Code :

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

1
2
3
4
5
6
 
dim i as long
 
do while range("A" & i).value<>""
   i=i+1
loop

[vanille972]

merci pour vos réponses. non Getule, je n'ai pas suppimer le code vba, seulement, a chaque enregistrement, je dois "reparamétrer" la macro et le bouton qui y est affecté car tout disparait. je joins la macro utilisé à laquelle je n'ai porter aucune modif

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
21
22
Sub transpose_dans_tableau_V02()
    Dim ligne_active_base As Integer
 
    Worksheets("Formulaire").Range("B1:B72").Copy
 
    If Worksheets("BD RESIDENTS").Range("A1") = "" Then
        ligne_active_base = 1
        Else
        ligne_active_base = Worksheets("BD RESIDENTS"). _
            Range("A65536").End(xlUp).Row + 1
    End If
 
    'Collage avec transposition'
    Worksheets("BD RESIDENTS").Range("A" & ligne_active_base). _
        PasteSpecial Paste:=xlPasteAllExceptBorders, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=True
 
    'Rendre vierge le formulaire'
    Worksheets("Formulaire").Range("B1:B72").ClearContents
    'Désactive le mode copier/coller
    Application.CutCopyMode = False
End Sub

[ouskel'n'or]

Une autre solution que Range("A1").End(xlUp).Row qui peut etre pratique dans certains cas (comme le tiens apparemment).
C'est d'utiliser une boucle qui vérifie si sur une colonne obligatoire la cellule est vide

Risquée, la méthode ! Si tu as une cellule vide dans la colonne A, tu effaces toutes les lignes du dessous qui peuvent-être renseignées.

[jfontaine]

C'est pour ca que j'ai écrit

sur une colonne obligatoire

[ouskel'n'or]

Hello Jfontaine,
Comme je n'avais pas compris le sens de "colonne obligatoire", je vais te taquiner
Dans ce cas-là, tu suggèrerais

Code :

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

1
2
3
4
dim NoLigne as long, NoColAconserver as byte
do while Cells(NoLigne, NoColAconserver).value <> ""
   NoLigne = NoLigne + 1
loop

Je sais, je suis un affreux

Vanille, es-tu sûr que ta colonne A est renseignée ? Pour cette ligne, tu dois adapter la bonne colonne

Code :

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

            Range("A65536").End(xlUp).Row + 1

A+