Discussion :

[Tigris]

Bonjour à toutes et à tous,

Je replonge dans le VBA après plusieurs années d'abstinence et ce n'est pas sans douleurs.

Je souhaite copier la valeur d'une cellule d'un onglet X dans la première colonne vide de la dernière ligne non vide d'un onglet Y.

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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Sub Verifications()
 
    ''''Création variables
    Dim nbenreg As Long
    Dim DernLignVide As Long
    Dim DernColoVide As String
 
    ''''Pour parcourir l'ensemble des lignes non vides
    nbenreg = Range("A3").End(xlDown).Row
    For i = 3 To nbenreg
 
        ''''Pour n'effectuer les contrôles que sur les lignes dont la "Validation" vaut "OK"
        If Sheets("Fichier de travail").Range("E" & i) = "OK" Then
 
            DernLignVide = Sheets("CR").Range("A1").End(xlDown).Row + 1
            ''''Le "Nom" ne doit pas être vide
            If Sheets("Fichier de travail").Range("G" & i) = "" Then
                code_K = Sheets("Fichier de travail").Range("A" & i).Value
                Range("CR!A" & DernLignVide).Value = code_K
                'MsgBox DernLignVide -- vaut 3 
                DernColoVide = Sheets("CR").Range("XFD" & DernLignVide).End(xlToLeft).Column + 1
                'MsgBox DernColoVide -- vaut 2
                Range("CR!" & DernColoVide & DernLignVide).Value = "Nom vide"
            End If
 
        End If
 
    Next i
 
End Sub

Ceci ne fonctionne pas :

Code :

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

Range("CR!" & DernColoVide & DernLignVide).Value = "Nom vide"

Ceci ne fonctionne pas non plus:

Code :

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

Worksheets("CR").Cells(DernLignVide, DernColoVide).Value = "Nom vide"

Pouvez-vous me dire pourquoi cela ne fonctionne pas et me fournir une solution ?

Merci d'avance !

[RyuAutodidacte]

Bonjour,

Voir ici : https://www.developpez.net/forums/d1...e/#post8366036
si cela correspond

[Tigris]

Bonjour,

Voir ici : https://www.developpez.net/forums/d1...e/#post8366036
si cela correspond

Bonjour,

Merci pour cette réponse, mais elle ne répond pas à ma problématique.

Comme vous pouvez le voir ici :

Code :

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

1
2
 code_K = Sheets("Fichier de travail").Range("A" & i).Value
                Range("CR!A" & DernLignVide).Value = code_K

On met dans la cellule A* de l'onglet CR la valeur de code_K;

Je souhaite que ma prochaine valeur dans cette itération soit écrite dans la 1re colonne vide à droite sur la même ligne que la cellule A*.

[RyuAutodidacte]

Re,

Je n'ai pas fait de pointage feuille /cellule, ceci va chercher la 1ère cellule vide en partant de la gauche, ex. (À adapter) :

Code :

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

Cells(11, 1).End(xlToRight).Offset(, 1).Select

Donc ici la variable i remplacera le nombre/ligne 11

Edit : dans l'autre sens :

Code :

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

Cells(11, Columns.Count).End(xlToLeft).Offset(, 1).Select

[Tigris]

En prenant le dernier code proposé et en l'adaptant, cela fonctionne !

Code :

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

Cells(DernLignVide, Columns.Count).End(xlToLeft).Offset(, 1).Value = "Nom vide"

Merci beaucoup !