j'ai un fichier excel qui comporte 2 feuilles
l'une me sert de formulaire de saisie (10 champs au total), l'autre de bases de donées.
Je souhaite, en cliquant sur un bouton, enregistrer les données (frapper dans le formulaire) dans la base de données et ainsi ajouter de nouveaux enregistrements.
avec les données à renvoyer de la feuille saisie de a30 à j30 dans la feuille (dernière ligne)
With Sheets("Données") derl = .[a65536].End(xlUp).Row + 1 .Range("a" & derl & ":j" & derl).Value > Sheets("saisie").Range("a30:j30").Value End With
prévoir éventuellent l'effacement de la zone de saisie dans la feuille saisie nommée plg [plg].ClearContents
l'incremention d'un numero d'ordre (cellule nommé numref) [numref] = [numref] + 1
et un certain nombre de contrôles If IsEmpty([a4]) Then MsgBox "Remplir le champ X" Application.Goto Range("a4"), True End End If
a+ rural thierry
"Nicolas" a écrit dans le message de news:
Bonjour
j'ai un fichier excel qui comporte 2 feuilles l'une me sert de formulaire de saisie (10 champs au total), l'autre de bases de donées.
Je souhaite, en cliquant sur un bouton, enregistrer les données (frapper dans le formulaire) dans la base de données et ainsi ajouter de nouveaux
enregistrements.
quelqu'un pourait 'il m'aider ? d'avance merci
ru-th
Salut
rien ne t'empecher dans sur la ligne 30 de la feuille saisie des références ¤ (en a30) ¦ (en b30)
sinon un p'tiote boucle toutes les 2 lignes de a4 à a24 de la feuille1 Sub test() With Sheets("donnée") y = 1 derl = .[a65536].End(xlUp).Row + 1 For i = 4 To 24 Step 2 .Cells(derl, y).Value = Sheets("saisie").Range("a" & i).Value y = y + 1 Next End With End Sub
a+ rural thierry "Nicolas" a écrit dans le message de news:
en fait les données que je saisis sont disposés à la verticale et espacés d'une ligne
avec les données à renvoyer de la feuille saisie de a30 à j30 dans la feuille (dernière ligne)
With Sheets("Données") derl = .[a65536].End(xlUp).Row + 1 .Range("a" & derl & ":j" & derl).Value > > > Sheets("saisie").Range("a30:j30").Value End With
prévoir éventuellent l'effacement de la zone de saisie dans la feuille saisie nommée plg [plg].ClearContents
l'incremention d'un numero d'ordre (cellule nommé numref) [numref] = [numref] + 1
et un certain nombre de contrôles If IsEmpty([a4]) Then MsgBox "Remplir le champ X" Application.Goto Range("a4"), True End End If
a+ rural thierry
"Nicolas" a écrit dans le message de
news:
Bonjour
j'ai un fichier excel qui comporte 2 feuilles l'une me sert de formulaire de saisie (10 champs au total), l'autre de
bases de donées.
Je souhaite, en cliquant sur un bouton, enregistrer les données (frapper
dans le formulaire) dans la base de données et ainsi ajouter de nouveaux
enregistrements.
quelqu'un pourait 'il m'aider ? d'avance merci
Salut
rien ne t'empecher dans sur la ligne 30 de la feuille saisie des références
¤ (en a30) ¦ (en b30)
sinon un p'tiote boucle toutes les 2 lignes de a4 à a24 de la feuille1
Sub test()
With Sheets("donnée")
y = 1
derl = .[a65536].End(xlUp).Row + 1
For i = 4 To 24 Step 2
.Cells(derl, y).Value = Sheets("saisie").Range("a" & i).Value
y = y + 1
Next
End With
End Sub
a+
rural thierry
"Nicolas" <Nicolas@discussions.microsoft.com> a écrit dans le message de
news: 3E277877-C035-422C-9259-C6000544DE7A@microsoft.com...
en fait les données que je saisis sont disposés à la verticale et espacés
d'une ligne
rien ne t'empecher dans sur la ligne 30 de la feuille saisie des références ¤ (en a30) ¦ (en b30)
sinon un p'tiote boucle toutes les 2 lignes de a4 à a24 de la feuille1 Sub test() With Sheets("donnée") y = 1 derl = .[a65536].End(xlUp).Row + 1 For i = 4 To 24 Step 2 .Cells(derl, y).Value = Sheets("saisie").Range("a" & i).Value y = y + 1 Next End With End Sub
a+ rural thierry "Nicolas" a écrit dans le message de news:
en fait les données que je saisis sont disposés à la verticale et espacés d'une ligne
