Discussion :

[Julia`]

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

[Vesta]

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


http://www.developpez.net/forums/sho...ght=formulaire

[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

[Vesta]

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

[Julia`]

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!!!!!

[SfJ5Rpw8]

bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=Formulaire!$A$12

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=Formulaire!R12C1

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

[Julia`]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

[SfJ5Rpw8]

si tu met .FormulaR1C1 il faut donner des adresses au forma R1C1... pour le format A1 utilise .Formula

[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

[Julia`]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Vesta]

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