Incrémenté l'insertion des données par colonne sous VBA

Bonjour à tous

j'ai besoin de votre aide

je veux réaliser une application sous VBA, j'ai un formulaire de saisie dans une feuil et les données s'insère automatiquement dans une deuxième feuil

mais je veux que sa s'incrémente par colonne et n'ont pas par ligne

merci beaucoup

Bonjour Sarahsarah,

Peux tu nous joindre un fichier stp que l'on puisse regarder ce que tu veux.

Merci a toi.

voilà

je veux que quand je clique sur le bouton ajouter sur la feuil 1 il s'ajoute dans la feuil2 dans la cellule E

et si j'insère un autre numéro dans feuil 1 il s'insère dans feuil 2 cellule F ...etc

mercii beaucoup

re Sarahsarah,

Voici ton tableau avec la macro faite

regarde si cela te va.

Bonjour,

Une autre proposition VBA.

Cdlt.

Private Sub CommandButton1_Click()
Dim lCol As Long
    If Not IsEmpty(Me.Range("E8")) Then
        With Worksheets("Feuil2")
            lCol = .Cells(1, Columns.Count).End(xlToLeft).Column
            If IsEmpty(.Cells(1, lCol)) Then
                .Cells(1, lCol).Value = Me.Range("E8").Value
            Else
                .Cells(1, lCol).Offset(, 1).Value = Me.Range("E8").Value
            End If
        End With
        Me.Range("E8").Value = vbNullString
    End If
End Sub

bonjour

merciii énormémoment

merci beaucoup jean-ERIC ,flanguille73

bonne journée

re bonjour svp

je reviens vers vous est ce que c'est possible me dire comment je peux multiblier ce nombre insérer par le nombre de jours du mois actuel

merci beaucoup

Bonjour,

Une mise à jour.

Cdlt.

Private Sub CommandButton1_Click()
Dim lCol As Long, n As Integer
    If Not IsEmpty(Me.Range("E8")) Then
        n = Day(WorksheetFunction.EoMonth(Date, 0))
        With Worksheets("Feuil2")
            lCol = .Cells(1, Columns.Count).End(xlToLeft).Column
            If IsEmpty(.Cells(1, lCol)) Then
                .Cells(1, lCol).Value = Me.Range("E8").Value * n
            Else
                .Cells(1, lCol).Offset(, 1).Value = Me.Range("E8").Value * n
            End If
        End With
        Me.Range("E8").Value = vbNullString
    End If

End Sub

merci beaucoup

bonjour

i need help :(

toujours on remplie la case du mois précédent par la case du mois suivant

c à d si on est dans le mois d'avril on dois remplir la cellule de la ligne 2 par la cellule de la ligne 1 du mois de mai

mais la condition est la cellule de la ligne 3 du mois de mai doit être différente à 0 sinon on prends la valeur du mois suivant

on fait le test tanque la ligne 3 est différente de 0

par exemple

la cellule J12 doit être valorisée par 80 mais comme K14=0 elle doit être valorisée par 70 est comme L14=0 alors on la valorise par M10 qui égale à 65

donc on valorise toutes les cellules J12 et K12 et L12 par 65 voila

toujours le dernier mois on le remplie provisoirement par sa valeur même si la valeur de la ligne 3 est nulle et on actualise le mois prochain par la valeur de ce mois même si il réponds pas à la condition jusqu'à ou on trouve le mois qui correspond à la condition et on actualise tout les mois qui ont pas vérifie la condition par la valeur du mois qui a vérifie la condition

merciiiii

Bonjour,

Le sujet est clos.

Crée un nouveau sujet.

Cdlt.

bonjour

je l'ai crée ailleurs ..j'ai eu cette proposition en excel

mais moi je le veux en VBA

merci quand -même