Recherche :

Twan Achats/Ventes : ImpactBe Divers : fredo490, 1 utilisateur anonyme et 27 utilisateurs inconnus

Mot : Pseudo : Filtrer
Page : 1 2 3 Page Suivante Page Précédente Bas de page
Auteur	Sujet : Need un expert en Excel

Ashe

reenignE esreveR

Reprise du message précédent :

Function FillTruc()
' Jsuppose que c'est 3,2 ton C2
Worksheets("nom de la sheet" ).Cell(3,2).Formula = ...
End Function

Private Sub Workbook_Open()
FillTruc
End Sub

Edit: et tu mets aussi un event quand on change la cellule ou y a la date du jour

Message édité par Ashe le 11-11-2007 à 20:55:16

---------------
Globe trotter/SDF - Namur, Belgique
Joy, beautiful spark of the gods, Daughter of Elysium, We enter fire imbibed, Heavenly, thy sanctuary.
Trombi Matbe

The_Elminster

Archimage archiconnu

on essaye d'abord un truc simple du style

feuil1.cells(1,1).formula = "=2+2"

mais la cellule me retourne un #valeur!

---------------
[:the_elminster:4]

"Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."
[:the_elminster:6]

Générateur naturel de gaz à effet de serre

Ashe

reenignE esreveR

C'est qu'ils m'obligeraient a lancer Excel

---------------
Globe trotter/SDF - Namur, Belgique
Joy, beautiful spark of the gods, Daughter of Elysium, We enter fire imbibed, Heavenly, thy sanctuary.
Trombi Matbe

The_Elminster

Archimage archiconnu

J'ai réussi à le faire faire à Twan qui patauge un brin aussi

---------------
[:the_elminster:4]

"Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."
[:the_elminster:6]

Générateur naturel de gaz à effet de serre

Ashe

reenignE esreveR

Pfft

Private Sub Worksheet_Activate()
Worksheets("Sheet1" ).Cells(1, 1).Formula = "= 2 + 2"
End Sub

Wala, testay, ca marche

---------------
Globe trotter/SDF - Namur, Belgique
Joy, beautiful spark of the gods, Daughter of Elysium, We enter fire imbibed, Heavenly, thy sanctuary.
Trombi Matbe

The_Elminster

Archimage archiconnu

je viens de faire un copier/coller en remplacant Sheet1 par Feuil1 (ben ouais ) et dans la cellule A1, j'ai mis =Worksheet_Activate()

et Excel me retourne un popup "Nom non valide"

---------------
[:the_elminster:4]

"Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."
[:the_elminster:6]

Générateur naturel de gaz à effet de serre

Ashe

reenignE esreveR

Quand tu fais alt+f11, y a une combo "General", tu choisis "Worksheet" ('fin le truc francais) et a droite tu choisis le Activate (ou pareil en francais)
Puis bon ptet qu'ils traduisent worksheet aussi

Message cité 1 fois

---------------
Globe trotter/SDF - Namur, Belgique
Joy, beautiful spark of the gods, Daughter of Elysium, We enter fire imbibed, Heavenly, thy sanctuary.
Trombi Matbe

LostSoul

Manieur de hache

paske t'as un excel en français et que tous les noms de tas de trucs changent et que c'est une grosse mayrde d'avoir des applis comme excel en français

---------------
In Girum Imus Nocte Et Consumimur Igni
In-Wonderland - Blog - Start64

The_Elminster

Archimage archiconnu

Ashe a écrit :

pas comprite

---------------
[:the_elminster:4]

"Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."
[:the_elminster:6]

Générateur naturel de gaz à effet de serre

The_Elminster

Archimage archiconnu

bon, j'ai virer le fichier en entier (à force de bidouiller, il allait finir par me donner la méteo). J'ai refais un fichier vierge, alt+f11, cliquer deux fois, Jeanine sur "Feuil1 (feuil1)" dans l'arborescence ""Microsoft Excel Object" / "VBA Project - Classeur1.xls"

Jai tapé le code, encodé la fonction dans le cellule et là #NOM? :cry:

Mais si au lieu de cela, je crée un module et que je colle le code, Excel me retourne un popup "Non non valide"

Message édité par The_Elminster le 11-11-2007 à 21:23:16

---------------
[:the_elminster:4]

"Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."
[:the_elminster:6]

Générateur naturel de gaz à effet de serre

Twan

Bon en faisant un sub ca marche, mais lui il veut le lancer dans sa case excel, donc obligé une fonction. Et la ca marche plus.

Message cité 1 fois

Ashe

reenignE esreveR

1) Alt+F11
2) Clic 2x sur Feuil1
3) Dans la combo en haut a gauche (moi c'est mis "(General)" ), mettre le seul autre choix (moi c'est "Worksheet" ); ca me cree un Worksheet_SelectionChange qui sert a rien et qui peut etre efface
4) Dans la combo en haut a droite (la ou y a "SelectionChange" ), mettre "Activate"

Apres t'as qu'a traduire

Message cité 1 fois

---------------
Globe trotter/SDF - Namur, Belgique
Joy, beautiful spark of the gods, Daughter of Elysium, We enter fire imbibed, Heavenly, thy sanctuary.
Trombi Matbe

Ashe

reenignE esreveR

Twan a écrit :

Bon en faisant un sub ca marche, mais lui il veut le lancer dans sa case excel, donc obligé une fonction. Et la ca marche plus.

Retourne a ton windev

---------------
Globe trotter/SDF - Namur, Belgique
Joy, beautiful spark of the gods, Daughter of Elysium, We enter fire imbibed, Heavenly, thy sanctuary.
Trombi Matbe

The_Elminster

Archimage archiconnu

done, mais ca change rien

---------------
[:the_elminster:4]

"Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."
[:the_elminster:6]

Générateur naturel de gaz à effet de serre

Ashe

reenignE esreveR

Il te met quoi comme sub?

Message cité 1 fois

---------------
Globe trotter/SDF - Namur, Belgique
Joy, beautiful spark of the gods, Daughter of Elysium, We enter fire imbibed, Heavenly, thy sanctuary.
Trombi Matbe

LostSoul

Manieur de hache

Ashe a écrit :

Ca marche chez moi (vive Excel en anglais)

---------------
In Girum Imus Nocte Et Consumimur Igni
In-Wonderland - Blog - Start64

Twan

J'avais pas vu que tu voulais faire comme ca.
The El voulait lui une fonction, et pas une procédure qui se lance a chaque lancement. Sinon il est obligé de mettre en dur pour toutes ses cellules

The_Elminster

Archimage archiconnu

Ashe a écrit :

Il te met quoi comme sub?

Private Sub Worksheet_Activate()

End Sub

---------------
[:the_elminster:4]

"Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."
[:the_elminster:6]

Générateur naturel de gaz à effet de serre

Ashe

reenignE esreveR

Et tu mets quoi dedans?

Message cité 1 fois

---------------
Globe trotter/SDF - Namur, Belgique
Joy, beautiful spark of the gods, Daughter of Elysium, We enter fire imbibed, Heavenly, thy sanctuary.
Trombi Matbe

LostSoul

Manieur de hache

Ashe a écrit :

Et tu mets quoi dedans?

fromage jambon pickles cornichons pâté oeufs durs

Message cité 1 fois

---------------
In Girum Imus Nocte Et Consumimur Igni
In-Wonderland - Blog - Start64

The_Elminster

Archimage archiconnu

ok, ca marche mais je dois laisser en

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("Feuil1" ).Cells(1, 1).Formula = "= 2 + 2"

End Sub

En Activate, nada

Message cité 1 fois

---------------
[:the_elminster:4]

"Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."
[:the_elminster:6]

Générateur naturel de gaz à effet de serre

The_Elminster

Archimage archiconnu

le soucis est qu'il faut spécifier la cellule cible

Ca isque de faire une chiée de ligne de code

---------------
[:the_elminster:4]

"Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."
[:the_elminster:6]

Générateur naturel de gaz à effet de serre

Ashe

reenignE esreveR

LostSoul a écrit :

fromage jambon pickles cornichons pâté oeufs durs

les mecs comme toi c'est des pourrisseurs inutiles qui polluent les forum pour ne rien dire de concret.
</gagbergag>

The_Elminster a écrit :

ok, ca marche mais je dois laisser en

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("Feuil1" ).Cells(1, 1).Formula = "= 2 + 2"

End Sub

En Activate, nada

Ben en activate faut que tu cliques sur une autre feuille puis recliquer sur la premiere pour que ce soit appele
(sinon ca s'fait quand t'ouvres ton fichier excel)
A la base faut le foutre dans une fonction que t'appelles du Activate et de l'evenement quand tu changes la cellule ou y a la date

Message cité 1 fois

---------------
Globe trotter/SDF - Namur, Belgique
Joy, beautiful spark of the gods, Daughter of Elysium, We enter fire imbibed, Heavenly, thy sanctuary.
Trombi Matbe

LostSoul

Manieur de hache

Ashe a écrit :

les mecs comme toi c'est des pourrisseurs inutiles qui polluent les forum pour ne rien dire de concret.
</gagbergag>

[:bbloup]

---------------
In Girum Imus Nocte Et Consumimur Igni
In-Wonderland - Blog - Start64

The_Elminster

Archimage archiconnu

A la rigueur, si ca se fait à l'ouverture du fichier, ca ne me dérange pas.

---------------
[:the_elminster:4]

"Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."
[:the_elminster:6]

Générateur naturel de gaz à effet de serre

Ashe

reenignE esreveR

Ben avec le selectionchange ca changera la formule chaque fois que tu cliques sur une cellule

---------------
Globe trotter/SDF - Namur, Belgique
Joy, beautiful spark of the gods, Daughter of Elysium, We enter fire imbibed, Heavenly, thy sanctuary.
Trombi Matbe

The_Elminster

Archimage archiconnu

Citation :

Public Function datetexte(ByVal nb As Integer)

Dim s As String
Dim tmp As String
Dim datetmp As String

datetmp = Date
s = Date - nb
tmp = Left(s, 2)
If Right(tmp, 1) = "/" Then tmp = Left(tmp, 1)
s = Right(s, 7)
tmp = tmp & "." & Left(s, 2) & "." & Right(s, 4)
datetexte = tmp

End Function

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim i As Integer
Dim a As Integer
Dim x As Integer

x = 1
a = 7
Do
i = 1
Do
Worksheets("Feuil1" ).Cells(x, 1).Formula = "='\[Statistiques téléphoniques NCC " & datetexte(a) & ".xls]Données'!G" & i + 1
Worksheets("Feuil1" ).Cells(x, 2).Formula = "='\[Statistiques téléphoniques NCC " & datetexte(a) & ".xls]Données'!H" & i + 1
Worksheets("Feuil1" ).Cells(x, 3).Formula = "='\[Statistiques téléphoniques NCC " & datetexte(a) & ".xls]Données'!I" & i + 1
Worksheets("Feuil1" ).Cells(x, 4).Formula = "='\[Statistiques téléphoniques NCC " & datetexte(a) & ".xls]Données'!J" & i + 1
Worksheets("Feuil1" ).Cells(x, 5).Formula = "='\[Statistiques téléphoniques NCC " & datetexte(a) & ".xls]Données'!K" & i + 1
i = i + 1
x = x + 1
Loop Until i = 8
x = x + 2
a = a - 1
Loop Until a = 2

End Sub

Et voila, une chtite fonction qui va me rechercher toutes les datas que je veux :bounce:

Merci à Twan et à Ashe :jap:

---------------
[:the_elminster:4]

"Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."
[:the_elminster:6]

Générateur naturel de gaz à effet de serre

Ashe

reenignE esreveR

Tu l'as pas mis dans l'activate finalement?

---------------
Globe trotter/SDF - Namur, Belgique
Joy, beautiful spark of the gods, Daughter of Elysium, We enter fire imbibed, Heavenly, thy sanctuary.
Trombi Matbe

The_Elminster

Archimage archiconnu

bah, on le changera par la suite au cas ou

---------------
[:the_elminster:4]

"Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."
[:the_elminster:6]

Générateur naturel de gaz à effet de serre

The_Elminster

Archimage archiconnu

Euh.. mouais, ca m'ennuye même un peu car impossible de sauvegarder les datas sans qu'il ne fasse de MAJ automatique. Comment faire pour qu'il ne la fasse qu'à l'ouverture du fichier ?

---------------
[:the_elminster:4]

"Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."
[:the_elminster:6]

Générateur naturel de gaz à effet de serre

Ashe

reenignE esreveR

Workbook_Open y msemble

---------------
Globe trotter/SDF - Namur, Belgique
Joy, beautiful spark of the gods, Daughter of Elysium, We enter fire imbibed, Heavenly, thy sanctuary.
Trombi Matbe

Arl-Guhr

kan g faim je mange

ouep

---------------
il s'appel le ronge me doute

The_Elminster

Archimage archiconnu

Ca, c'est de la fonction :sol:

Citation :

Private Sub CommandButton1_Click()

Dim nomfichier As String

Dim datestart As String
Dim datestartday As String
Dim datestartmonth As String
Dim datestartyear As String
Dim datestartmp As String

Dim dateend As String
Dim dateendday As String
Dim dateendmonth As String
Dim dateendyear As String
Dim dateendtmp As String

Dim exc As New Excel.Application

datestart = Date - 7
datestarttmp = Right(datestart, 7)
datestartyear = Right(datestarttmp, 4)
datestartmonth = Left(datestarttmp, 2)
If Right(datestartmonth, 1) = "/" Then datestartmonth = Left(datestartmonth, 1)
datestartday = Left(datestart, 2)
If Right(datestartday, 1) = "/" Then datestartday = Left(datestartday, 1)

dateend = Date - 3
dateendtmp = Right(dateend, 7)
dateendyear = Right(dateendtmp, 4)
dateendmonth = Left(dateendtmp, 2)
If Right(dateendmonth, 1) = "/" Then dateendmonth = Left(dateendmonth, 1)
dateendday = Left(dateend, 2)
If Right(dateendday, 1) = "/" Then dateendday = Left(dateendday, 1)

nomfichier = "Statistique téléphonique Hebdomadaire NCC du " & datestartday & "." & datestartmonth & "." & datestartyear & " au " & dateendday & "." & dateendmonth & "." & dateendyear & ".xls"

' Sélection des cellules à copier
Sheets("Feuil1" ).Select
Range("A1:F45" ).Copy

Workbooks.Open "\Graphiques.xls"

Sheets("Feuil1" ).Activate

' Windows(nomfichier).Activate

' copie des valeurs des cellules du fichier source
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

' création du fichier cible
' Workbooks.Add
ActiveWorkbook.SaveAs Filename:="\" & nomfichier, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

ActiveWorkbook.Close SaveChanges:=True

End Sub

Public Function datetexte(ByVal nb As Integer)

Dim s As String
Dim tmp As String
Dim datetmp As String

datetmp = Date
s = Date - nb
tmp = Left(s, 2)
If Right(tmp, 1) = "/" Then tmp = Left(tmp, 1)
s = Right(s, 7)
tmp = tmp & "." & Left(s, 2) & "." & Right(s, 4)
datetexte = tmp

End Function

Private Sub Worksheet_Activate()

Dim i As Integer
Dim a As Integer
Dim x As Integer

x = 2
a = 7
Do
i = 1
Do
Worksheets("Feuil1" ).Cells(x, 2).Formula = "='\[Statistiques téléphoniques NCC " & datetexte(a) & ".xls]Données'!G" & i + 1
Worksheets("Feuil1" ).Cells(x, 3).Formula = "='\[Statistiques téléphoniques NCC " & datetexte(a) & ".xls]Données'!H" & i + 1
Worksheets("Feuil1" ).Cells(x, 4).Formula = "='\[Statistiques téléphoniques NCC " & datetexte(a) & ".xls]Données'!I" & i + 1
Worksheets("Feuil1" ).Cells(x, 5).Formula = "='\[Statistiques téléphoniques NCC " & datetexte(a) & ".xls]Données'!J" & i + 1
Worksheets("Feuil1" ).Cells(x, 6).Formula = "='\[Statistiques téléphoniques NCC " & datetexte(a) & ".xls]Données'!K" & i + 1
i = i + 1
x = x + 1
Loop Until i = 9
x = x + 1
a = a - 1
Loop Until a = 2

End Sub

---------------
[:the_elminster:4]

"Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."
[:the_elminster:6]

Générateur naturel de gaz à effet de serre

LostSoul

Manieur de hache

Tain c'est quoi ce bidouillage de dates de la mort ?

Message cité 1 fois

---------------
In Girum Imus Nocte Et Consumimur Igni
In-Wonderland - Blog - Start64

The_Elminster

Archimage archiconnu

LostSoul a écrit :

Tain c'est quoi ce bidouillage de dates de la mort ?

Pour avoir une date au format jj.mm.aaaa et non jj/mm/aaaa comme la retourne la fonction Date. Obligaid pour incorporer la date dans le nom du fichier qui n'accepte pas les "/" [:spamafote]

---------------
[:the_elminster:4]

"Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."
[:the_elminster:6]

Générateur naturel de gaz à effet de serre

Ashe

reenignE esreveR

Bah quand on sait pas qu'y a un type date

Message cité 2 fois

---------------
Globe trotter/SDF - Namur, Belgique
Joy, beautiful spark of the gods, Daughter of Elysium, We enter fire imbibed, Heavenly, thy sanctuary.
Trombi Matbe

The_Elminster

Archimage archiconnu

Ashe a écrit :

Bah quand on sait pas qu'y a un type date

Jusqu'à hier soir, Visual Basic, je pensais que c'était un jeu de tennis

---------------
[:the_elminster:4]

"Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."
[:the_elminster:6]

Générateur naturel de gaz à effet de serre

LostSoul

Manieur de hache

Ashe a écrit :

Bah quand on sait pas qu'y a un type date

Tu m'otes les mots de la bouche :jap:

---------------
In Girum Imus Nocte Et Consumimur Igni
In-Wonderland - Blog - Start64

The_Elminster

Archimage archiconnu

Bon, j'ai encore un soucis dont je ne trouve pas de solus (twan non plus ).

J'aimerais, dans une feuil Excel, assosicer la touche ENTER à un bouton. Non, Keypress ne renvois pas la touche ENTER, ESC, etc.... mais toutes les autres bien

---------------
[:the_elminster:4]

"Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."
[:the_elminster:6]

Générateur naturel de gaz à effet de serre

Ashe

reenignE esreveR

Faire le traitre et gerer le focus lost ca irait pas?

Message cité 1 fois

---------------
Globe trotter/SDF - Namur, Belgique
Joy, beautiful spark of the gods, Daughter of Elysium, We enter fire imbibed, Heavenly, thy sanctuary.
Trombi Matbe

The_Elminster

Archimage archiconnu

Ashe a écrit :

Faire le traitre et gerer le focus lost ca irait pas?

Nan, pas envie de focuser le chevelu

Merde, je viens de voir que le TAB n'est pas Keypress usable :pfff: Mais quel language de merde :pfff:

---------------
[:the_elminster:4]

"Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."
[:the_elminster:6]

Générateur naturel de gaz à effet de serre

Page : 1 2 3

Page Suivante

Page Précédente

Haut de page

FORUM Matbe.com

OS, Software, Réseaux & Jeux vidéos

Programmation

Need un expert en Excel

Need un expert en Excel

FORUM Matbe.com

OS, Software, Réseaux & Jeux vidéos

Programmation

Need un expert en Excel