Réaliser une base données sous excel

R

Redwarf

Guest

• 12 Mars 2008

• #31

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

 

Vote positif 0 Vote négatif

R

Redwarf

Guest

• 13 Mars 2008

• #32

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

Oups, pas aussi facile que prévu :

Code:

' 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 ?

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 13 Mars 2008

• #33

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 😉

 

Vote positif 0 Vote négatif

R

Redwarf

Guest

• 13 Mars 2008

• #34

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

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

Pourtant on a bien un For.

 

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 13 Mars 2008

• #35

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

Bonjour Redwarf,

Code:

' 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 .

 

Vote positif 0 Vote négatif

R

Redwarf

Guest

• 13 Mars 2008

• #36

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

Toujours erreur de compilation, Next sans For.

 

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 13 Mars 2008

• #37

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

peux tu me donner ton fichier ?

C'est plus simple.

 

Vote positif 0 Vote négatif

R

Redwarf

Guest

• 13 Mars 2008

• #38

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

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

Merci

 

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 13 Mars 2008

• #39

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

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

 

Vote positif 0 Vote négatif

R

Redwarf

Guest

• 13 Mars 2008

• #40

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 ?

 

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 13 Mars 2008

• #41

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.

 

Vote positif 0 Vote négatif

R

Redwarf

Guest

• 13 Mars 2008

• #42

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

Encore merci, je regarde ca ce soir !

 

Vote positif 0 Vote négatif

R

Redwarf

Guest

• 20 Mars 2008

• #43

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 ?

 

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 20 Mars 2008

• #44

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.

 

Vote positif 0 Vote négatif

R

Redwarf

Guest

• 21 Mars 2008

• #45

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

Voilà comme convenu.

Fichier

 

Vote positif 0 Vote négatif