Code vba

Résolu

abdellah_tadjine Messages postés 191 Date d'inscription Statut Membre Dernière intervention -
abdellah_tadjine Messages postés 191 Date d'inscription Statut Membre Dernière intervention - 11 déc. 2018 à 23:50

Bonjour,
J'aimerais savoir, si c'est possible de faire valider des données (alimenter ma BD dans feuil excel depuis mon userform avec le bouton (VALIDER) par colonne et non pas par ligne
moi d'habitude j'utilise le code

Dim derlign As Integer
    If MsgBox("Confirmez-vous l'Ajout des Données?", vbYesNo, "confirmation") = vbYes Then
    
          derligne = Sheets("liste").Range("A254256").End(xlUp).Row + 1

Configuration: Windows / Firefox 63.0

Afficher la suite

A voir également:

Vba derligne
Excel compter cellule couleur sans vba - Guide
Incompatibilité de type vba ✓ - Forum VB / VBA
Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
Mkdir vba ✓ - Forum VB / VBA
Dépassement de capacité vba ✓ - Forum Excel

3 réponses

Réponse 1 / 3

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

Bonjour
Tu veux trouver la dernière colonne au lieu de la dernière ligne ?
Donc utilise column au lieu de row

abdellah_tadjine Messages postés 191 Date d'inscription Statut Membre Dernière intervention 6

merci pour ton aide , j'ai mis "column" au lieu de row mais au lieu qu'il ajoute des donnéea dans la colonne suivante il les écrase, alors que mois je souhaite qu'il alimente la colonne suivante, cordilement

abdellah merci

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

C'est normal...Il te faite faire +1

abdellah_tadjine Messages postés 191 Date d'inscription Statut Membre Dernière intervention 6

mais +1 se décale par ligne et non par colonne

abdellah_tadjine Messages postés 191 Date d'inscription Statut Membre Dernière intervention 6

voici le code du buton valider

Private Sub CommandButton1_Click()
Dim derligne As Integer
    If MsgBox("Confirmez-vous l'Ajout des Données?", vbYesNo, "confirmation") = vbYes Then
    
          derligne = Sheets("liste").Range("A456548").End(xlUp).Column + 2
                        
                Cells(derligne, 1) = TextBox1.Value
                

    End If
end sub

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

Cells(ligne , colonne )
Donc..il faut placer ta variable au bon endroit...

Réponse 2 / 3

abdellah_tadjine Messages postés 191 Date d'inscription Statut Membre Dernière intervention 6

oui, le 2éme code vba (der colonne) alimente ma base de donnée par le bouton valider;

dans la colonne (a) et pour une nouvelle saisie de la valeur de la même textbox je veux qu'elle soit

stocker dans la colonne suivante , colonne (b) ainsi de suite.
merci pour votre aide.

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

ben c'est ce que le code que je t'ai donné fait.
Je t'ai juste mis les deux exemples Ligne et Colonne pour que tu puisses voir la différence....

abdellah_tadjine Messages postés 191 Date d'inscription Statut Membre Dernière intervention 6

non quand je valide il ecrase les données de la meme colonne ,en principe une nouvelle saisie stock les données dans la colonne suivante chose que ton code ne le fait pas

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

Au temps pour moi...

Derniere_Colonne =Sheets("liste").Cells.Find("*", Range("A1"), , , xlByColumns, xlPrevious).Column

abdellah_tadjine Messages postés 191 Date d'inscription Statut Membre Dernière intervention 6

"merci pour tout, j'i un message d'erreur (erreur d'execution "9"
l'indice n'appartien pas a la selection"
merci encor une fois pour tonaide
et voici le code que j'ai utiliser en cloquant sur le "buttoncommande"

Private Sub CommandButton1_Click()

Derniere_Colonne = Sheets("liste").Cells.Find("*", Range("A1"), , , xlByColumns, xlPrevious).Column

Cells(1, derColonne) = TextBox1.Value

End Sub

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

Regarde le nom de la variable derColonn ...
ça ne correspond pas avec Derniere_Colonne

Réponse 3 / 3

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

"ça ne marche pas" .... une phrase vide de sens qui n'explique en rien en quoi cela ne "marche pas"....
As tu corrigé le code ? As tu pensé à ajouté un +1 pour la dernière colonne ?
Perso.. quand je teste

Private Sub CommandButton1_Click()
Dim derligne As Integer
    If MsgBox("Confirmez-vous l'Ajout des Données?", vbYesNo, "confirmation") = vbYes Then
        Derniere_Colonne = Sheets("liste").Cells.Find("*", Range("A1"), , , xlByColumns, xlPrevious).Column + 1
        Cells(1, Derniere_Colonne) = TextBox1.Value
    End If
End Sub

ça fait exactement ce que tu nous as demandé ....

PS: Merci de ne plus ouvrir de doublons de discussion...

abdellah_tadjine Messages postés 191 Date d'inscription Statut Membre Dernière intervention 6

merci bcp, ça fonctionne et je suis vraiment désolé pour le desagrement, car j'avais un problème dans office,

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Votre réponse

Discussions similaires