Problème VBA

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion picronte
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

picronte

XLDnaute Occasionnel
Bonjour le fil
je suis toujours sur mon fichier
mais je ne trouve pas le code qu'il me faut. j'ai utiliser des IF pour qu'il me recherche le noms exacte " cela fonctionne, mais j'ai utilisé else pour qu'il me mette le reste "PRO.EXT" (PX).
le problème c'est qu'il me met tous dans l'onglet PROD.EXT
Pouvez vous m'aider

ci joint le code
Picronte

Sub transfertdonnees()
Dim datedec As Date
Dim datepre As Date
Dim action As String
Dim sujet As String
Dim ligneS As Integer
Dim ligneX As Integer
Dim ligneC As Integer
Dim ligneJF As Integer
Dim ligneJPB As Integer
Dim lignePX As Integer
Dim ligneM As Integer
Dim ligneF As Integer
Dim lignePH As Integer
Dim ligneL As Integer
Dim LigneD As Integer
Dim ligneFA As Integer
Dim ligneT As Integer
Dim ligneB As Integer
Dim ligneG As Integer
Dim LigneH As Integer
Dim LigneJPL As Integer
Dim ligneFR As Integer
Dim ligneDA As Integer
Dim ligneE As Integer
Dim ligneOL As Integer
Dim ligneJP As Integer
Dim ligneSO As Integer

Dim nomprod As String
Dim numprod As Double
Dim nomtech As String
Dim createur As String
Dim zone As String
Dim numerofiche As Double
Dim ctrl As Control
Dim priority As String
Dim duree As Byte
Dim D As Control

ligneX = Sheets("Fiche").Cells(1, 9)
ligneC = Sheets("fiche").Cells(2, 9)
ligneS = Sheets("Fiche").Cells(3, 9)
ligneJF = Sheets("Fiche").Cells(4, 9)
ligneJPB = Sheets("Fiche").Cells(5, 9)
ligneM = Sheets("Fiche").Cells(6, 9)
ligneF = Sheets("Fiche").Cells(7, 9)
lignePH = Sheets("fiche").Cells(8, 9)
ligneL = Sheets("Fiche").Cells(9, 9)
LigneD = Sheets("Fiche").Cells(10, 9)
ligneSO = Sheets("Fiche").Cells(11, 9)
ligneFA = Sheets("Fiche").Cells(12, 9)
ligneT = Sheets("Fiche").Cells(13, 9)
ligneB = Sheets("fiche").Cells(14, 9)
ligneG = Sheets("Fiche").Cells(15, 9)
LigneH = Sheets("Fiche").Cells(16, 9)
LigneJPL = Sheets("Fiche").Cells(17, 9)
ligneFR = Sheets("Fiche").Cells(18, 9)
ligneDA = Sheets("Fiche").Cells(19, 9)
ligneE = Sheets("fiche").Cells(20, 9)
ligneJP = Sheets("Fiche").Cells(21, 9)
lignePX = Sheets("fiche").Cells(22, 9)
ligneOL = Sheets("Fiche").Cells(23, 9)


For Each D In Frame1.Controls
If D.Value = True Then
duree = D.Caption
End If
Next

datedec = date1
sujet = textsujet
action = textaction
datepre = Now() + duree
numerofiche = choixfiche
priority = nprio
nomprod = Nomprodu
nomtech = Nomtechn
numprod = numeprod
createur = creafiche
zone = ZdC

Sheets("synthese").Cells(ligneS, 1) = numprod
Sheets("synthese").Cells(ligneS, 2) = zone
Sheets("synthese").Cells(ligneS, 3) = datedec
Sheets("synthese").Cells(ligneS, 4) = numerofiche
Sheets("synthese").Cells(ligneS, 5) = createur
Sheets("synthese").Cells(ligneS, 6) = priority
Sheets("synthese").Cells(ligneS, 7) = nomprod
Sheets("synthese").Cells(ligneS, 8) = nomtech
Sheets("synthese").Cells(ligneS, 9) = sujet
Sheets("synthese").Cells(ligneS, 10) = action
Sheets("synthese").Cells(ligneS, 11) = datepre
ligneS = ligneS + 1
Sheets("Fiche").Cells(3, 9) = ligneS

If listutil = "X " Then
Sheets("X ").Cells(ligneX, 1) = zone
Sheets("X).Cells(ligneX, 2) = datedec
Sheets("X. ").Cells(ligneX, 3) = numerofiche
Sheets("X. ").Cells(ligneX, 4) = createur
Sheets("X. ").Cells(ligneX, 5) = priority
Sheets("X. ").Cells(ligneX, 6) = numprod
Sheets("X. ").Cells(ligneX, 7) = nomprod
Sheets("X. ").Cells(ligneX, 8) = nomtech
Sheets("X. ").Cells(ligneX, 9) = sujet
Sheets("X. ").Cells(ligneX, 10) = action
Sheets("X").Cells(ligneX, 11) = datepre
ligneX = ligneX + 1
Sheets("Fiche").Cells(1, 9) = ligneX
End If

If listutil = "C " Then
Sheets("C. ").Cells(ligneC, 1) = zone
Sheets("C . ").Cells(ligneC, 2) = datedec
Sheets("C. ").Cells(ligneC, 3) = numerofiche
Sheets("C. ").Cells(ligneC, 4) = createur
Sheets("C.T").Cells(ligneC, 5) = priority
Sheets("C.").Cells(ligneC, 6) = numprod
Sheets("C.").Cells(ligneC, 7) = nomprod
Sheets("C.").Cells(ligneC, 8) = nomtech
Sheets("C.").Cells(ligneC, 9) = sujet
Sheets("C.").Cells(ligneC, 10) = action
Sheets("C.").Cells(ligneC, 11) = datepre
ligneC = ligneC + 1
Sheets("Fiche").Cells(2, 9) = ligneC
End If

If listutil = "JF." Then
Sheets("JF.").Cells(ligneJF, 1) = zone
Sheets("JF.").Cells(ligneJF, 2) = datedec
Sheets("JF.").Cells(ligneJF, 3) = numerofiche
Sheets("JF.").Cells(ligneJF, 4) = createur
Sheets("JF.").Cells(ligneJF, 5) = priority
Sheets("JF.").Cells(ligneJF, 6) = numprod
Sheets("JF.E").Cells(ligneJF, 7) = nomprod
Sheets("JF.").Cells(ligneJF, 8) = nomtech
Sheets("JF.").Cells(ligneJF, 9) = sujet
Sheets("JF.").Cells(ligneJF, 10) = action
Sheets("JF.").Cells(ligneJF, 11) = datepre
ligneJF = ligneJF + 1
Sheets("Fiche").Cells(4, 9) = ligneJF

End If

If listutil = "JP." Then
Sheets("JP.").Cells(ligneJPB, 1) = zone
Sheets("JP.").Cells(ligneJPB, 2) = datedec
Sheets("JP.").Cells(ligneJPB, 3) = numerofiche
Sheets("JP.").Cells(ligneJPB, 4) = createur
Sheets("JP.").Cells(ligneJPB, 5) = priority
Sheets("JP.").Cells(ligneJPB, 6) = numprod
Sheets("JP.").Cells(ligneJPB, 7) = nomprod
Sheets("JP." ).Cells(ligneJPB, 8) = nomtech
Sheets("JP.").Cells(ligneJPB, 9) = sujet
Sheets("JP.").Cells(ligneJPB, 10) = action
Sheets("JP.").Cells(ligneJPB, 11) = datepre
ligneJPB = ligneJPB + 1
Sheets("Fiche").Cells(5, 9) = ligneJPB

End If


Else
Sheets("PROD.EXT").Cells(lignePX, 1) = zone
Sheets("PROD.EXT").Cells(lignePX, 2) = datedec
Sheets("PROD.EXT").Cells(lignePX, 3) = numerofiche
Sheets("PROD.EXT").Cells(lignePX, 4) = createur
Sheets("PROD.EXT").Cells(lignePX, 5) = priority
Sheets("PROD.EXT").Cells(lignePX, 6) = numprod
Sheets("PROD.EXT").Cells(lignePX, 7) = nomprod
Sheets("PROD.EXT").Cells(lignePX, 8) = nomtech
Sheets("PROD.EXT").Cells(lignePX, 9) = sujet
Sheets("PROD.EXT").Cells(lignePX, 10) = action
Sheets("PROD.EXT").Cells(lignePX, 11) = datepre
lignePX = lignePX + 1
Sheets("Fiche").Cells(22, 9) = lignePX



End If
Call efface
Call affichage
End Sub
 
Trier par date Trier par votes
Re : Problème VBA

re,
Ci-joint le fichier
Le fichier fonctionne bien mais je souhaiterai que AAA BBB CCC de l'onglet listeprod vont dans l'onglet Prod.ext quand j'ai fini le tri fiche de l'onglet fiche semaine.
Si cela n'est pas claire ne pas hésiter a me poser des questions
Merci Picronte
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Problème VBA

bonjour Picontre,Camarchepas
tu veux que l'on t'aide,met quelques données dans les feuilles concernées(ex:feuille listprod contient des 0)
et où doivent aller AA,BB,CC(quelle colonne A,B,C,???)
Rowsource n"est pas indiqué pour un userform,pertes de propriétés de l'objet
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

deudecos
  • Résolu(e)
XL pour MAC Code vba pour recherche sur une seule ligne
Réponses
4
Affichages
124
deudecos
deudecos
P
  • Résolu(e)
Microsoft 365 VBA - Survol d'un Label déclenchement action
Réponses
8
Affichages
234
patricko-13
P
VBA_dev_Anne_Marie
  • Question Question
Microsoft 365 VBA ADODB doublons
Réponses
1
Affichages
305
dysorthographie
dysorthographie
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
847
TooFatBoy
TooFatBoy
treza88
  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
182
treza88
treza88
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
552
Abi23
A
badraaliou4
  • Question Question
XL 2021 Importer les données Access dans Excel
Réponses
2
Affichages
549
badraaliou4
badraaliou4
Jojo973
  • Question Question
XL 2021 Ouvrir une application et vérifier si elle est déjà ouverte
Réponses
4
Affichages
300
Jojo973
Jojo973
VBA_dev_Anne_Marie
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
977
VBA_dev_Anne_Marie
VBA_dev_Anne_Marie
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
1 K
Webperegrino
W
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
692
kiki29
kiki29
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
780
KRUG WOO
K
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
1 K
laurent950
laurent950
S
  • Résolu(e)
Microsoft 365 VBA Match: comment éviter l'erreur?
2
Réponses
29
Affichages
1 K
Dranreb
Dranreb
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
432
CDALE
C
Amigo
  • Question Question
XL 2016 Protéger Plage avec condition
2
Réponses
16
Affichages
1 K
Amigo
Amigo
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
777
picc
P
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
434
sebastien176
S
lynyrd
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
903
AtTheOne
AtTheOne
Chaton77
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
829
Chaton77
Chaton77
Retour