Incrementer une base de donnée mais à l'horizontale

[SSIAP2]

bonjour à tous

j'utilise depuis toujour cette macro pour alimenter une base de donnée à la verticale un classic

N° Prenom
1 tutu
2 lulu
3 lolo

Private Sub valide()



Dim i As Integer
  Dim li As Long
  
With Worksheets("Parametre")

nl = Sheets("parametre").Range("A" & Cells.Rows.Count).End(xlUp).Row + 1



  .Cells(nl, 1).Value = ComboBox1
 
 
      End With
    
End Sub

mais aujourdhuis je recherche à alimenté une base de donnée mais à l'horizontal c'est a dire de A2:X2....
tutu lulu toto

savez vous comment je peut faire cela svp merci d'avance

 

[Hulk]

Re : Incrementer une base de donnée mais à l'horizontale

Salut SSIAP,


Voici comment il faut faire...

    With Worksheets("Parametre")
        nl = Cells(2, Cells.Columns.Count).End(xlToLeft).Column + 1 'Pour la ligne 2
        .Cells(2, nl).Value = ComboBox1
    End With

Tu peux placer un If pour que quand il arrive à la colonne X, qu'il s'arrête.

Petit lien.

 

[SSIAP2]

Re : Incrementer une base de donnée mais à l'horizontale

bonjour Hulk et grand merci ta solution fonctionne parfaitement une brique de plus dans mon évolution sur excel.

j'aurais encore une dernière question si sa t’embête pas trop

si quand je valide la valeur celle ci existe déjà comment puis je faire pour ne pas créer un doublon et lancer par exemple la macro1

svp merci

 

[Hulk]

Re : Incrementer une base de donnée mais à l'horizontale

Re,

Voilà, mais je suis sûr que tu aurais pu trouver ça tout seul... 🙄

Private Sub valide()

    With Worksheets("Parametre")
        
        nl = .Cells(2, Cells.Columns.Count).End(xlToLeft).Column + 1 'Pour la ligne 2
        
        'Pour t'arreter à la colonne X
        '25 pour la 25ème colonne (Y)
        'Donc si arrive à la colonne Y il s'arrête
        If .Cells(2, Cells.Columns.Count).End(xlToLeft).Column + 1 = 25 Then
            Exit Sub
        End If
        
        'Pou éviter les doublons
        If .Cells(2, nl - 1).Value = ComboBox1.Value Then
            'Ici Macro1
            MsgBox "Doublon !"
            .Cells(2, nl).Value = ""
            Exit Sub
        Else
            .Cells(2, nl).Value = ComboBox1
        End If
    
    End With
    
End Sub

 

[SSIAP2]

Re : Incrementer une base de donnée mais à l'horizontale

re bonjour cher hulk j'ai tester ta solution génial je suis conquis vraiment un grand merci grace a toi mon projet seras boucler et moi j'aurais appris un peu plus a bientot

 

[SSIAP2]

Re : Incrementer une base de donnée mais à l'horizontale

re bonjour hulk alors je viens de me rendre compte de quelque chose quand je crée ma première entête il me le met en B2 j'ai tous essayer pour le mettre en A2 impossibles peut tu me dire comment je dois m'y prendre svp

 

[jerpeang]

Re : Incrementer une base de donnée mais à l'horizontale

bonsoir,

remplace tous les
.cells(2
par
.cells(1

de plus pour les doublons, la méthode de hulk, ne permet que de détecter si la dernière valeur est en doublon

voici ma contribution

 

[SSIAP2]

Re : Incrementer une base de donnée mais à l'horizontale

BONJOUR jerpang
et merci pour ta contribution mais ont c'est mal compris ce que tu me propose alimente ma feuil1 a la vertical c'est a dire de A1:A moi ce que je recherchais c'est une alimentation de A1:Z1 0 L'HORIZONTAL ce que hulk me proposais était parfait le seul problème c'est qu'il commençais la première incrémentation en B2 alors je souhaiterais qu'il le fasse en A2 saurais tu modifier ceci svp merci

 

[jerpeang]

Re : Incrementer une base de donnée mais à l'horizontale

bonjour,

Il va falloir que j'apprenne à lire et relire. (J'avais compris que tu voulais que cela commence en ligne 1, sinon je n'avais pas changé l'orientation).
Par contre, pour le test de doublon, c'est bien un test depuis la première colonne.

Fâcheux contre temps,

J'espère que cette version t'ira

 

[SSIAP2]

Re : Incrementer une base de donnée mais à l'horizontale

re bonjour jerpeang ta dernière contribution est parfaite tu ma super bien aider il me reste plus qu'a l'adapter à mon projet mais je pense que sa se feras sans aucun soucis encore un grand grand merci