Pb Suite A Partage Classeur

[oasis_1]

Bonjour le Forum,

Mon problème suite à modification de classeur et donc partage, entre plusieurs classeur, je me retrouve avec un userform dans lequel se trouve un bouton me permettant d'impacter les données selectionné.

Seulement maintenant ma feuille1 se trouve dans un nouveau classeur appelée "feuilledevis 2" . Et je galère pour modifier cette macro

Ci-joint formule de ma macro :


Private Sub CommandButton5_Click() 'Transfert vers devis
Dim Nom As String
Dim NbDonnée As Integer
Dim Nb As Integer, Y As Integer
Dim Element_Select As Boolean
Dim X As Integer

Sheets("Feuil1").Select
'Nom = Range("B8").Value
NbDonnée = Range("A7").Value

'------------------ Vérification Feuille Devis ---------------
If Nom <> "" Or NbDonnée <> 0 Then
MsgBox "Votre feuille devis n'est pas vierge"
Exit Sub
End If

Element_Select = False
Nb = Sheets("Clients").Range("AQ3").Value
X = 4
If Nb = 0 Then Exit Sub 'si bibli vide

'------------------ Transfert Données vers Devis -------------
For i = 0 To Nb - 1
If UserForm12.ListBox1.Selected(i) = True Then
Element_Select = True
'Range("B8").Value = UserForm12.TextBox2.Value
Range("D4").Value = UserForm12.TextBox2.Value & " " & UserForm12.TextBox3.Value
Range("D5").Value = UserForm12.TextBox4.Value
Range("D6").Value = UserForm12.TextBox5.Value

End If
Next

'----------- DETECTION D'ERREUR (PAS DE SELECTION)---------------
If Element_Select = False Then
MsgBox "vous n'avez rien sélectionné: fin du programme", , "FACTURE DEVIS"
Exit Sub
End If
Sheets("Feuil1").Range("A9").Select
End Sub

Merci de votre aide

 

[oasis_1]

Re : Pb Suite A Partage Classeur

Bonsoir le Forum,

Personne pour m'aider ?

pour l'instant j'ai tellement essayé de solution que je suis perdu.

 

[skoobi]

Re : Pb Suite A Partage Classeur

Bonsoir oasis1,

Il faudrait que tu expliques pourquoi tu veux modifier la macro.
Elle se trouve sur une autre feuille?
Les données à transférer sont "ailleurs"?

 

[oasis_1]

Re : Pb Suite A Partage Classeur

Bonsoir skoobi,

Au tout début je n'avais qu'un seul classeur donc et la macro fonctionnait parfaitement. Seulement trop lourd pour faire plusieurs sauvegarde.

Et donc depuis peu j'ai été obligé de faire différent classeur, en tous il y a 4 classeur devis.

mais les données se trouvent toujours sur le premier classeur.

Donc je souhaite inclure dans chacun de mes 4 devis un bouton me permettant d'appeler la macro du premier classeur. cette dernière enregistrera les données dans un des 4 devis, bien sur celui qui est ouvert.


j'espère avoir été assez claire!!

@ +
oasis_1

 

[skoobi]

Re : Pb Suite A Partage Classeur

Re,

Si j'ai bien compris tu as juste à ajouter "ActiveWorkbook" devant les cellules nécessaires:

exemple:

ActiveWorkbook.Range("D4").Value = UserForm12.TextBox2.Value & " " & UserForm12.TextBox3.Value

Sans garantie.

 

[oasis_1]

Re : Pb Suite A Partage Classeur

Re,

Peux tu me dire ce que va faire "ActiveWorkbook."

Car à première vue pour moi ? serte je ne suis pas tres doué.
En faisant ce que tu me dis, cela me fait une erreur 438 " Propriété ou méthode non gérée par cet objet"

y a t il autre chose à rajouter surement mais ou et quoi ?

@ +

 

[skoobi]

Re : Pb Suite A Partage Classeur

Re,

ouppsss oui, il faut ajouter la feuille:

ActiveWorkbook.Sheets(Feuil1").Range("D4")
par exemple.

 

[oasis_1]

Re : Pb Suite A Partage Classeur

Re,

Toujours une erreur " erreur de compilation"
Alors je me demande:

A savoir dans le classeur 1, feuille 1 ma macro, feuille 2 mes données
dans le classeur 2 , 3 , 4 ou 5 suivant mes besoins un bouton pour appeler la macro du classeur 1 et ma macro doit copier les données dans des autres classeur(2,3,4,5), uniquement celui qui ouvert.

A te lire

@ +

 

[skoobi]

Re : Pb Suite A Partage Classeur

Re bonjour,

et ceci?

ActiveWorkbook.ActiveSheet.Range("D4")

 

[oasis_1]

Re : Pb Suite A Partage Classeur

Re Bonsoir,

Malheureusement toujours la même erreur.
Ne faut il pas mettre une formule d'appel dans la page ouverte
ou encore ne faut il pas modifier ma macro ?
je suis perdu rien ne fonctionne

@ toi si tu as une idée ?

 

[oasis_1]

Re : Pb Suite A Partage Classeur

Re Skoobi, le Forum,

Suite aux modifications que tu a apporté à mon devis sur l'autre discussion,
Je souhaiterai faire la meme chose avec la formule ci-dessus.

Quand pense tu ?

 

[skoobi]

Re : Pb Suite A Partage Classeur

Re,

essaye ThisWorkbook.Sheets("nom de la feuille").Range("D4"),
sinon, envoie le fichier.

 

[oasis_1]

Re : Pb Suite A Partage Classeur

Re,

essaye ThisWorkbook.Sheets("nom de la feuille").Range("D4"),
sinon, envoie le fichier.

En effet je t'envoie mes fichier car j'ai essayé de modifier moi meme et a vrais dire j'ai foutu une sacrée merde dans mon fichier.
Je pense qu'il ne faut pas grand chose, seulement quelques boutons déconne sèrieusement. 😕

Donc les boutons Ajouter, Tri A-Z, Tranfert, et Suppimer me demande de réouvrir le classeur donc tout est perdu.

Le bouton transfert apparait après avoir selectionné un client. Seulement je pense aussi qu'il n'impact pas les données.

j'ai repris la base de se que tu m'avais fait avec le classeur devis.

Te remerciant par avance. 😀

 

[Staple1600]

Re : Pb Suite A Partage Classeur

Bonjour oasis_1, skoobi


Pour info: il n'y aucun code dans l'Userform5

Et il ya un appel à l'userform12

ActiveWorkbook.Sheet("Devis Facture Rapide").Range("S25").Value = _
UserForm12.TextBox2.Value & " " & UserForm12.TextBox3.Value

Mais il n'y a pas d'userform12

 

[oasis_1]

Re : Pb Suite A Partage Classeur

Bonjour Staple 1600 le Forum,

Pour info: il n'y aucun code dans l'Userform5

Et il ya un appel à l'userform12

ActiveWorkbook.Sheet("Devis Facture Rapide").Range("S25").Value = _
UserForm12.TextBox2.Value & " " & UserForm12.TextBox3.Value

Mais il n'y a pas d'userform12

Ce classeur me sert pour faire de essais et envoyer sur le forum donc la plus part du temps j'adapte en faisant des copier/coller donc il ne faut pas lire userform 12 mais userform 1.

D'autre part ne sachant pas comment envoyer des dossier de plus de 48k je réduit en suppriment et les 2 boutons commande et saisie ont été désactivé pour gagner de la place.

Je te comprend tout a fait ainsi que le forum mon dossier ne pouvait etre claire que pour skoobi qui ma déjà aidé et sorti d'une galère sur ce meme fichier mais dans une autre discussion

Pour finir je remets en ligne mon fichier avec mon unique problème :

Arriver à l'aide de l' userform 1 via le boutons "Recherche Clients" dans le classeur "classeur devis" à appeler le classeur " Liste Clientèle".

et pour reprendre ma citation:

Donc les boutons Ajouter, Tri A-Z, Tranfert, et Suppimer me demande de réouvrir le classeur donc tout est perdu.

Le bouton transfert apparait après avoir selectionné un client. Seulement je pense aussi qu'il n'impact pas les données.
Bien sur les 4 premiers boutons Ajouter, Tri A-Z, Tranfert, et Suppimer doivent intervenir sur le classeur "Liste Clientèle".

Le bouton transfert lui doit impacter les donnés sur le classeur "classeur devis"

Aispérent avoir été plus claire pour toi Staple 1600 ainsi que pour le Forum.