Réaliser une base données sous excel

[Redwarf]

Bonjour à tous,

A chaque fois que je viens sur ce forum c'est à la suite d'un nouveau poste dans une boîte

Et ce nouveau poste ne me propose pas Acess qui m'aurait été très utile

Je souhaite donc créer un formulaire sous excel(le 2007, je me perds dans la refonte de l'affichagge par rapport au 2003) qui me permettra de rentrer des données diverses (sexe, ages, communes et autres).

Ces données seront donc stockées afin de réaliser des stats !

C'est donc cette partie de base de données que je n'arrive pas à réaliser.

Encore une fois de plus je me remets à vos connaissances et compétences.

En vous remerciant,

Fabien.

 

[Redwarf]

Re : Réaliser une base données sous excel

Mais c'est génial !

Merci rudymagny, je suis rudement satisfait de ce forum à chaque fois on me trouve une réponse rapide, encore merci !

je vais pouvoir développer le reste de mon formulaire de cette manière !

En fait c'est très simple, le fait de cocher ces cellules me permettra de faire des stats sur ceux qui sont :

- ANPE
- ANPE/RMI
-ANPE/RMI/Salarié
- ...

Je poursuis la conception du formulaire, il faut encore que j'automatise les stats et à ce sujet, quelle formule pourra m'indiquer la plage de donnée qui concerne le mois de janvier par exemple.

Encore merci

 

[Redwarf]

Re : Réaliser une base données sous excel

Oups, pas aussi facile que prévu :

' Inscrit la SITUATION
  For I = 1 To 12
    If Me("checkbox" & I) = True Then
        If ShtD.Range("F" & DerLig + 1).Value = "" Then
            ShtD.Range("F" & DerLig + 1).Value = Me("checkbox" & I).Caption
        Else
            ShtD.Range("F" & DerLig + 1).Value = ShtD.Range("F" & DerLig + 1).Value & Chr(10) & Me("checkbox" & I).Caption
        End If

      '
  ' Inscrit l'orientation
  For I = 10 To 13
    If Me("checkbox" & I) = True Then
        If ShtD.Range("H" & DerLig + 1).Value = "" Then
            ShtD.Range("H" & DerLig + 1).Value = Me("checkbox" & I).Caption
        Else
            ShtD.Range("H" & DerLig + 1).Value = ShtD.Range("H" & DerLig + 1).Value & Chr(10) & Me("checkbox" & I).Caption
        End If

Ca me met VARIABLE DE CONTROLE FOR DEJA UTILISE.

Je pensais qu'un Next I ferait l'affaire mais non. Un avis ?

 

[Compte Supprimé 979]

Re : Réaliser une base données sous excel

Salut Redwarf,

Ben oui, il faut peut être penser à finir tes boucles FOR par des NEXT !

Sinon tu auras effectivement un problème

 

[Redwarf]

Re : Réaliser une base données sous excel

Il me met erreur de compilation next sans for...

Pourtant on a bien un For.

 

[rudymagny]

Re : Réaliser une base données sous excel

Bonjour Redwarf,

' Inscrit la SITUATION
  For I = 1 To 12
    If Me("checkbox" & I) = True Then
        If ShtD.Range("F" & DerLig + 1).Value = "" Then
            ShtD.Range("F" & DerLig + 1).Value = Me("checkbox" & I).Caption
        Else
            ShtD.Range("F" & DerLig + 1).Value = ShtD.Range("F" & DerLig + 1).Value & Chr(10) & Me("checkbox" & I).Caption
        End If
  Next I
      '
  ' Inscrit l'orientation
  For I = 10 To 13
    If Me("checkbox" & I) = True Then
        If ShtD.Range("H" & DerLig + 1).Value = "" Then
            ShtD.Range("H" & DerLig + 1).Value = Me("checkbox" & I).Caption
        Else
            ShtD.Range("H" & DerLig + 1).Value = ShtD.Range("H" & DerLig + 1).Value & Chr(10) & Me("checkbox" & I).Caption
        End If
    Next I

normalement ça marche .

 

[Redwarf]

Re : Réaliser une base données sous excel

Toujours erreur de compilation, Next sans For.

 

[rudymagny]

Re : Réaliser une base données sous excel

peux tu me donner ton fichier ?

C'est plus simple.

 

[Redwarf]

Re : Réaliser une base données sous excel

http://redwarf401.free.fr/Formulaire.xls

Merci

 

[rudymagny]

Re : Réaliser une base données sous excel

Pourquoi as tu utilisé une autre variable "j"?

 

[Redwarf]

Re : Réaliser une base données sous excel

J c'est pour compléter une autre cellule, aurais je mal interpréter le code ?

 

[rudymagny]

Re : Réaliser une base données sous excel

ça devrait être bon là:
http://cjoint.com/?dnrIy2TnDc

Tu n'avais pas fermé ton premier if avec end if.
Tu avais une autre erreur sur le " j " pas d'espace avant et après le j.

un petit conseil, pour &éviter ces problèmes de boucle, range bien ton code avec des tabulations comme je l'ai fais dans ce fichier.

 

[Redwarf]

Re : Réaliser une base données sous excel

Encore merci, je regarde ca ce soir !

 

[Redwarf]

Re : Réaliser une base données sous excel

Tout marche comme sur des roulettes, juste que il met du temps à ajouter les données !

Quand je clic sur ajouter ca prend bien 15 sec, bizarre, non ?

 

[rudymagny]

Re : Réaliser une base données sous excel

Bonsoir le forum, RedWarf,
Peux tu mettre le fichier pour lequel l'insertion de données prend du temps?
Pour que je le test chez moi.

 

[Redwarf]

Re : Réaliser une base données sous excel

Voilà comme convenu.

Fichier