[VBA-E]Probleme macro + formulaire

**Julia`** · 13/05/2006, 13h46

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** · 13/05/2006, 13h53

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

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

**Julia`** · 13/05/2006, 13h56

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** · 13/05/2006, 14h00

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

**SfJ5Rpw8** · 13/05/2006, 14h02

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`** · 13/05/2006, 14h03

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 :

**Vesta** · 13/05/2006, 14h04

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

**SfJ5Rpw8** · 13/05/2006, 14h06

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

**Julia`** · 13/05/2006, 14h06

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

**Julia`** · 13/05/2006, 14h08

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 :

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** · 13/05/2006, 14h10

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

**Julia`** · 13/05/2006, 14h11

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

**Vesta** · 13/05/2006, 14h12

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

**Julia`** · 13/05/2006, 14h18

je suis dessus

j etidue tt ca

merci

**ThierryAIM** · 13/05/2006, 14h22

et pense aux balises de code, stp, je vais pas passer mon temps à les rajouter derrière toi
Voir Les règles du forum

**Vesta** · 13/05/2006, 14h23

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

**Julia`** · 13/05/2006, 14h24

jme fais crier

**Julia`** · 13/05/2006, 14h25

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

**Vesta** · 13/05/2006, 14h30

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 :

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

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?

**Julia`** · 13/05/2006, 14h33

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

oki je vois le truc :d

[VBA-E]Probleme macro + formulaire

Macros et VBA Excel

Discussions similaires

Partager

Partager