Discussion :

[NEC14]

Bonjour,

J'ai mis en place le code suivant qui me permet de rapatrier des données dans un tableau Excel. Cependant, je rencontre un problème. Une fois la première donnée saisie, les autres ne s'inscrivent pas en dessous de la première, mais ailleurs dans le tableau. La première donnée arrive en F25, la deuxième devrait logiquement arriver en F26, mais ça ne fonctionne pas. Pourriez-vous me dire ou ai-je commis une erreur ?
Je vous en remercie par avance :

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
 
Private Sub CmbOK_Click()
Dim vMessageErreur As String
Dim vErreur As Integer
vMessageErreur = ""
vErreur = 0
 
If UF1.CmbCat.Value = "" Then
    vErreur = 1
    vMessageErreur = vMessageErreur + Chr(10) + "Un code"
End If
If vErreur = 1 Then
    MsgBox "Vous avez oublié" + vMessageErreur, , "Erreur"
Exit Sub
End If
Sheets("Lot 1 - Abscis").Activate
If Range("F25") = "" Then
    Range("F25").Select
Else
    Range("F24").End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("F23").Select
End If
 
ActiveCell.Value = UF1.CmbCat.Value
ActiveCell.Offset(0, 1).Value = UF1.LstFS.List
ActiveCell.Offset(0, 2).Value = UF1.TxtNb1.Value
ActiveCell.Offset(0, 3).Value = UF1.LstHF.List
ActiveCell.Offset(0, 4).Value = UF1.TxtNb2.Value
 
End Sub

[Marc-L]

Bonjour,

la cellule F26 est inatteignable :  juste transcrire la "logique" des lignes de code n°17 à 22 pour comprendre,
en particulier la ligne n°21, quelle est donc son utilité ?‼

Étudier Cells(Rows.Count, 6).End(xlUp).Offset(1) …

Les lignes n°16 à 28 pouvant être remplacées par une seule ligne de code !

___________________________________________________________________________________________________________

Je suis Paris, New-York, Mogadicio, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[NEC14]

Bonjour Marc,

Merci pour votre réponse. Mais pourquoi la cellule F26 est inatteignable ?
Pour la ligne 21 du code, j'ai recopié un code et je l'ai adapté, cette ligne était présente alors j'ai fait avec

[Marc-L]

Alors c'est raté :  vérifier donc la cellule activée par cette ligne n°21 !

Relire mon précédent message suite à son édition …

[Menhir]

Ce que fait ceci :

Code :

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

1
2
    Range("F24").End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("F23").Select

C'est de sélectionnée la cellule précédent la première cellule vide en-dessous de F24.
Puis de sélectionner la cellule se trouvant 22 lignes plus bas et 5 colonnes à droite de la cellule vide juste en dessous.

Je doute que ce soit ce que tu souhaites.
Mais ne sachant pas ce que tu souhaites, difficile de le corriger.

[NEC14]

J'ai tenté de faire ça mais j'ai un message d'erreur : La méthode Range de l'objet global a échoué

Code :

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

1
2
3
 
    Range("F24").End(xlDown).Select
    Range(Rows.Count, 6).End(xlUp).Offset(0, 1).Select

Bonjour Menhir,

Merci pour votre contribution. Ce que je cherche à faire, c'est que une fois la cellule F25 est remplie, la nouvelle saisie se fasse à partir de F26, la troisième F27 et ainsi de suite

[Marc-L]

Déjà sans indiquer quelle ligne déclenche le message d'erreur, on ne joue pas ici aux devinettes ! …

A quoi sert donc la ligne n°2 ?!
La ligne n°3 a une erreur : juste lire le post #2 et l'aide VBA interne de la propriété Offset …

Rappel :  un bon code n'active ni ne sélectionne rien - inutile dans 99% des cas ! - il doit travailler directement avec les objets.

[unparia]

Bonjour

Comment, déjà et entre autres, peut-on "tenter" ce que je mets ici en rouge dans ton code ?

Code :

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

1
2
Range("F24").End(xlDown).Select
    Range(Rows.Count, 6).End(xlUp).Offset(0, 1).Select

Je ne reviendrai personnellement ici que lorsque tu auras bien voulu au moins apprendre la notation de l'initialisation d'un objet Range. C'est un minimum