Problème avec un code VBA - Les données ne sont pas rapatriées correctement

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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

09/11/2017, 09h55
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, …
09/11/2017, 10h06
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
09/11/2017, 10h10
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 …
09/11/2017, 10h19
Menhir
Ce que fait ceci :
Code:

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.
09/11/2017, 10h27
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:

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
09/11/2017, 10h40
Marc-L

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

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.
09/11/2017, 10h42
unparia
Bonjour

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

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 ;)
09/11/2017, 10h44
Marc-L

Salut Jacques !

Pour le Range, Culpa mia : post #2 édité à l'instant … (perturbé par la "logique" du code initial !)
09/11/2017, 10h52
unparia

Salut Marc
Ah ! C'était toi ?
Cela n'empêche ! Si RENE14 connaissait au moins les rudiments, il n'aurait pas "tenté", mais corrigé spontanément cette étourderie. D'autant qu'il recevait, lui, un message d'erreur que tu n'avais pas (écrivant à main levée).
C'est juste désespérant/déprimant et il est hélas de plus en fréquent d'être spectateurs de cette preuve de carences fondamentales ...
On "copie", on "tente", etc ... sans réelle préhension. Même après réception d'un message d'erreur qui devrait mettre la puce à l'oreille ...
Patapé -->> je sors ...
09/11/2017, 11h03
Marc-L

Avec un tout p'tit peu d'expérience mais surtout avec un iota de neurones en respectant la Logique
et le modèle objet d'Excel encore une fois une seule ligne de code peut remplacer tout ce fatras de lignes …
09/11/2017, 12h16
NEC14

Pour vous c'est facile car vous maîtriser VBA. Si je viens sur ce site, c'est que j'ai besoin d'aide et faire appel à des experts. Je ne suis pas venu ici pour me prendre des réflexions.
Je vais me débrouiller seul.
Au revoir

Bonjour,

Voici mon code et il fonctionne. Les puristes y trouveront certainement à redire, mais le principal pour moi est que ça marche.
Bonne journée
René

Code:

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
 
Private Sub CmbOK_Click()
Dim vLigne As Long
 
Sheets("Lot 1 - Abscis").Activate
If Range("E25") = "" Then
    Range("E25").Select
    vLigne = 1
Else
    Range("E24").End(xlDown).Select
    vLigne = Selection.Value + 1
    ActiveCell.Offset(1, 0).Range("A1").Select
  End If
 
  ActiveCell.Value = vLigne
  ActiveCell.Offset(0, 1).Value = Me.CmbCat.Value
  ActiveCell.Offset(0, 2).Value = Me.TxtFS.Value
  ActiveCell.Offset(0, 3).Value = Me.TxtNb1.Value
  ActiveCell.Offset(0, 4).Value = Me.TxtHF.Value
  ActiveCell.Offset(0, 5).Value = Me.TxtNb2.Value
 
  Me.CmbCat.ListIndex = -1
  Me.TxtFS.Value = ""
  Me.TxtNb1.Value = ""
  Me.TxtHF.Value = ""
  Me.TxtNb2.Value = ""
End Sub

10/11/2017, 08h10
unparia

Citation:

j'ai besoin d'aide et faire appel à des experts

Il n'est nul besoin de "maîtriser VBA" ou d'être un "expert" pour apprendre (c'est la toute première "chose" à laquelle je me suis intéressé à mes tous débuts) ce que sont les trois notations possibles ***** pour spécifier un objet range.
Je te conseille d'en faire autant.;)

*****
Range("A4")
Cells(4,1)
[A4]

(les trois spécifient la même cellule A4)
10/11/2017, 08h23
NEC14

Bonjour unparia,

Merci pour ta réponse et ton conseil. Si je comprends bien, "ActiveCell.Offset" peut être remplacé par une des méthodes que tu m'as proposé ?

Je ne vais pas raconter ma vie, mais je reviens d'une longue maladie et je dois réapprendre beaucoup de choses avec plus ou moins de difficultés, mais ça c'est mon problème. Je ne demande qu'à progresser et je m'excuse si je ne comprends pas tout de suite.
Mille merci à tous les participants à cette discussion

Citation:

Envoyé par RENE14

Voici mon code et il fonctionne.

v2 :

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub CmbOK_Click()
    With Worksheets("Lot 1 - Abscis")
        L& = Application.Max(.Cells(.Rows.Count, 5).End(xlUp).Row, 24) + 1
        .Cells(L, 5).Resize(, 6).Value = Array(L - 24, Me.CmbCat.Value, Me.TxtFS.Value, Me.TxtNb1.Value, Me.TxtHF.Value, Me.TxtNb2.Value)
    End With
        Me.CmbCat.ListIndex = -1
        Me.TxtFS.Value = ""
        Me.TxtNb1.Value = ""
        Me.TxtHF.Value = ""
        Me.TxtNb2.Value = ""
End Sub

…

Et si la cellule E24 n'est jamais vide (titre) :

Code:

1
2
3
4
5
6
7
8
9
Private Sub CmbOK_Click()
    With Worksheets("Lot 1 - Abscis").Cells(Rows.Count, 5).End(xlUp)(2)
        .Resize(, 6).Value = Array(.Row - 24, Me.CmbCat.Value, Me.TxtFS.Value, Me.TxtNb1.Value, Me.TxtHF.Value, Me.TxtNb2.Value)
    End With
        Me.CmbCat.ListIndex = -1
        Me.TxtFS.Value = ""
        Me.TxtNb1.Value = ""
        Me.TxtHF.Value = ""
        Me.TxtNb2.Value = ""End Sub

___________________________________________________________________________________________________________

:arrow: Merci de cliquer sur :plusser: en bas à droite de chaque message ayant aidé …

10/11/2017, 11h12
NEC14

Bonjour Marc,

Merci pour ton code, il est certain qu'il est beaucoup plus propre que le mien, mais ça je ne sais pas faire encore.
Je vais le garder sous le coude, il va certainement me servir.
Encore merci
René
10/11/2017, 11h21
Marc-L

Je viens de l'éditer en y ajoutant une variante …
10/11/2017, 11h26
NEC14

Merci pour ta participation et le temps passé à faire ce code

J'ai essayé d'appliquer le code pour un autre formulaire. Tout marche à peu près bien, sauf le fait que je n'arrive pas à commencer en colonne A sans un nombre qui incrémenté (je pense qu'il s'agit du nombre de lignes). TxtCat doit être mis en A et non en B.
Merci par avance pour votre aide
Voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Cmb1_Click() With ThisWorkbook.ActiveSheet L& = Application.Max(.Cells(.Rows.Count, 1).End(xlUp).Row, 1) + 1 .Cells(L, 1).Resize(, 4).Value = Array(L, 1, Me.TxtCat.Value, Me.TxtFS.Value, Me.TxtHF.Value, Me.TxtPage.Value) End With Me.TxtCat.Value = "" Me.TxtFS.Value = "" Me.TxtHF.Value = "" Me.TxtPage.Value = "" End Sub

Voir 40 message(s) de cette discussion en une page