[VBA-E]Probleme macro + formulaire

Version imprimable

13/05/2006, 13h46
Julia`

[VBA-E]Probleme macro + formulaire

Bonjour,

Voils j ai un petit soucis.

Je vosu expliques, je suis entrain de creer une base de données sous excel (oui je sais ya mieux, mais c ets ca ou rien)

Sur un sheet, il y a un formulaire que mon equipe rempli
Sur un 2eme sheet il y a la base de données

Le but de l operation est, qd une personne remplis le formulaire, elle clikera sur un bouton éenregistrer qui sera lié a une macro qui fait tout ca :

-Complete la base de donnée avec les champs qu elle a rempli
-Imprime
-Enrengistre le formulaire ds un autre document
-effaces les champs rempli ds le formulaire

Mon soucis :

J ai parametrer ma macro en lui disant, "tu vas ds la base de donnes, tu trouve la derniere ligne tu vas decendre d un case et tu inscris dedans "=Formulaire!A12"

Bien mais non, alors deja ca m inscrit "=Formulaire!'A12'" avec les quote autour du A13 donc ca ne marche pas.

Donc j ai essayé la methode "=Feuil3!R[4]C[4]" qui marche bien mais, maintenant elle incremente la formule a chaque tournage de macro, resultat il n y a plus rien qui coincide car les cellule du forulaire reste figées

je suis sur que c ets une conneri, mais je trouve pas ZE truc qui m aiderait :)

merci :d
13/05/2006, 13h53
Vesta

Inspire toi déja de ce qui a été fait la...

http://www.developpez.net/forums/sho...ght=formulaire
13/05/2006, 13h56
Julia`

merci mais ce n ets pas un formulaire excel par defaut, c ets une feuille que j ai créé moi meme :(

en faite j aurais besoin de savoir comment figé les formules sans qu elle s increment
13/05/2006, 14h00
Vesta

1 pièce(s) jointe(s)

Je joint le fichier qui fonctionne (c'est avec un formulaire perso créé dans excel)
13/05/2006, 14h02
SfJ5Rpw8

bien

Code:

=Formulaire!$A$12

ou

Code:

=Formulaire!R12C1

fait nous voir le code que tu utilise pour mettre formule dans cellule
;)

Code:

1
2
3
4
5
6
7
8
Range("c65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.FormulaR1C1 = "=Feuil3!R[4]C[4]"
 
  Range("d65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.FormulaR1C1 = "=Feuil3!A12"
 
  Range("e65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.FormulaR1C1 = "=T(Feuil3!C33)"

voici les 3 methode usités :d

je vais voir de suite le fichier :;)

13/05/2006, 14h04
Vesta

OK maintenant j'ai compris... lol Tu as fait d'une feuille un formulaire.. Mis des boutons dessus etc...

Ce serait bien que tu puisse nous montrer ce que tu as déja écrit comme code...

Dans le fichier que j'ai joint il y a une boucle while qui te servira surement déja
13/05/2006, 14h06
SfJ5Rpw8

si tu met .FormulaR1C1 il faut donner des adresses au forma R1C1... pour le format A1 utilise .Formula;)
13/05/2006, 14h06
Julia`

Citation:

Envoyé par Vesta

Je joint le fichier qui fonctionne (c'est avec un formulaire perso créé dans excel)

c est excellentissimie!!!!!

il faut vraiment que je regarde si je peux integrer mes machin la dedans (si tu le permet :d, et au pire je fais un publipostage derriere pour avoir un format a4 et tt jolie de la chose!!!!!

Citation:

Envoyé par Vesta

OK maintenant j'ai compris... lol Tu as fait d'une feuille un formulaire.. Mis des boutons dessus etc...

Ce serait bien que tu puisse nous montrer ce que tu as déja écrit comme code...

Dans le fichier que j'ai joint il y a une boucle while qui te servira surement déja

bien , je vous previens je suis la reine de l embrouille visual basiquienne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Range("a65536").End(xlUp).Offset(1, 0).Select
    Sheets("Feuil3").Select
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets("Base de donnée").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=Feuil3!R[4]C[4]"
 
            Range("b65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.FormulaR1C1 = "=Feuil3!R[4]C[4]"
 
  Range("c65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.FormulaR1C1 = "=Feuil3!R[4]C[4]"
 
  Range("d65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.FormulaR1C1 = "=Feuil3!A12"
 
  Range("e65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.FormulaR1C1 = "=T(Feuil3!C33)"
 
 Range("f65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.FormulaR1C1 = "=T(Feuil3!E33)"
 
 Range("g65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.FormulaR1C1 = "=T(Feuil3!G33)"
 
 
 Range("h65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.FormulaR1C1 = "=T(Feuil3!C34)"
 
   Range("i65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.FormulaR1C1 = "=T(Feuil3!C35)"
 
   Range("j65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.FormulaR1C1 = "=T(Feuil3!E35)"
 
   Range("k65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.FormulaR1C1 = "=T(Feuil3!C36)"
 
   Range("l65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.FormulaR1C1 = "=T(Feuil3!E36)"
 
   Range("m65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.FormulaR1C1 = "=T(Feuil3!G36)"
 
   Range("n65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.FormulaR1C1 = "=T(Feuil3!A17)"
 
   Range("o65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.FormulaR1C1 = "=T(Feuil3!D17)"
 
   Range("p65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.FormulaR1C1 = "=T(Feuil3!D19)"
 
   Range("q65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.FormulaR1C1 = "=T(Feuil3!d22)"
 
   Range("r65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.FormulaR1C1 = "=T(Feuil3!e26)"
 
   Range("s65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.FormulaR1C1 = "=T(Feuil3!d45)"
 
   Range("t65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.FormulaR1C1 = "=T(Feuil3!d55)"
 
   Range("u65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.FormulaR1C1 = "=T(Feuil3!d57)"
 
  Sheets("Base de donnée").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
 
 
           Selection.NumberFormat = "d-mmm-yy"
  Selection.NumberFormat = "h:mm"
 
End Sub

13/05/2006, 14h10
Vesta

1 pièce(s) jointe(s)

Oui la méthode est bonne mais compliquée...

Voila j'ai fais un exemple simple avec ce que tu veux a mon avis...

Regarde c'est tout a fait différent...
13/05/2006, 14h11
Julia`

c ets bon j ai trouvé!!!!!!!

c etait ActiveCell.Formula = et non ActiveCell.FormulaR1C1 =

:d

et on ne se moque pas de mes boust de scotch :lol:
13/05/2006, 14h12
Vesta

Jette quand meme un coup d'oeuil pour la forme a ce que j'ai fais... Ca te paraitra peu etre un peu moins compliqué... (le second fichier hein c'est celui qui te concerne plus)

C'est plus clair en tout cas...
13/05/2006, 14h18
Julia`

je suis dessus ;)

j etidue tt ca :)

merci
13/05/2006, 14h22
ThierryAIM

et pense aux balises de code, stp, je vais pas passer mon temps à les rajouter derrière toi
Voir Les règles du forum
13/05/2006, 14h23
Vesta

Julia regarde la Version 2, j'ai joint deux fichiers c'est le second que tu devrais regarder... (Message 11)
13/05/2006, 14h24
Julia`

jme fais crier :mouarf:
13/05/2006, 14h25
Julia`

Citation:

Envoyé par Vesta

Julia regarde la Version 2, j'ai joint deux fichiers c'est le second que tu devrais regarder... (Message 11)

oui j ai vu , avec les 4 case et le bouton :)

mais je ne comprend pas bien :(
13/05/2006, 14h30
Vesta

Pas compliqué :

Lol je localise en fait mes cellules sources et destination par ces coordonnées numériques plutot que du type A1, R1C1...

Les deux paramettres de Cell() Sont la Ligne et la Colonne (comme en R1C1)

Exemple cellule A1 de la premiere feuille:

Code:

Feuil1.Cells(1,1) = " Je suis A1"

Affichera Je suis A1 dans la cellule A1 de la feuille 1

La boucle Do While Condition... Loop fera ce que je met entre tant que... la condition sera respectée...

Je test en fait la premiere celleule de chaque ligne tant qu'elle est pleine je continue jusqu'a ce qu'elle ne contienne plus de valeur...

Clair?
13/05/2006, 14h33
Julia`

han d accord oui , c ets juste pour trouver la 1er case dispo ;)

oki je vois le truc :d
13/05/2006, 14h34
Vesta

Voila pigé ;)

Allé bonne continuation