Je suis à la recherche d'un exemple pour remplir une demande en stage, toute
aide serait la bienvenue
j'ai plusieurs tableaux de 10 colonnes et 5 lignes, séparés les uns des
auters par é lignes.
J'ai besoins de faire des boucles sur chaque tableau en prenant le contenu
de plusieurs cellules (qui ne sont pas sur une meme ligne) et de les copier
dans une autre feuille (sur une meme ligne), puis passer au tableau suvant,
et faire la meme chose.
Je ne sais rien de vba, mais je ne demande qu'à apprendre.
Merci de toute contribution.
La rémunération de mon stage se fera sur le résultat de cette macro.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Ardus Petus
Envoie moi par mail une copie de ton classeur, avec un texte résumant tes besoins.
Cordialement, -- AP
"ozit" a écrit dans le message de news:440c3a42$0$21097$
Salut guruz
Je suis à la recherche d'un exemple pour remplir une demande en stage, toute
aide serait la bienvenue
j'ai plusieurs tableaux de 10 colonnes et 5 lignes, séparés les uns des auters par é lignes. J'ai besoins de faire des boucles sur chaque tableau en prenant le contenu de plusieurs cellules (qui ne sont pas sur une meme ligne) et de les copier
dans une autre feuille (sur une meme ligne), puis passer au tableau suvant,
et faire la meme chose. Je ne sais rien de vba, mais je ne demande qu'à apprendre. Merci de toute contribution.
La rémunération de mon stage se fera sur le résultat de cette macro.
Merci
Envoie moi par mail une copie de ton classeur, avec un texte résumant tes
besoins.
Cordialement,
--
AP
"ozit" <ozit@free.fr> a écrit dans le message de
news:440c3a42$0$21097$626a54ce@news.free.fr...
Salut guruz
Je suis à la recherche d'un exemple pour remplir une demande en stage,
toute
aide serait la bienvenue
j'ai plusieurs tableaux de 10 colonnes et 5 lignes, séparés les uns des
auters par é lignes.
J'ai besoins de faire des boucles sur chaque tableau en prenant le contenu
de plusieurs cellules (qui ne sont pas sur une meme ligne) et de les
copier
dans une autre feuille (sur une meme ligne), puis passer au tableau
suvant,
et faire la meme chose.
Je ne sais rien de vba, mais je ne demande qu'à apprendre.
Merci de toute contribution.
La rémunération de mon stage se fera sur le résultat de cette macro.
Envoie moi par mail une copie de ton classeur, avec un texte résumant tes besoins.
Cordialement, -- AP
"ozit" a écrit dans le message de news:440c3a42$0$21097$
Salut guruz
Je suis à la recherche d'un exemple pour remplir une demande en stage, toute
aide serait la bienvenue
j'ai plusieurs tableaux de 10 colonnes et 5 lignes, séparés les uns des auters par é lignes. J'ai besoins de faire des boucles sur chaque tableau en prenant le contenu de plusieurs cellules (qui ne sont pas sur une meme ligne) et de les copier
dans une autre feuille (sur une meme ligne), puis passer au tableau suvant,
et faire la meme chose. Je ne sais rien de vba, mais je ne demande qu'à apprendre. Merci de toute contribution.
La rémunération de mon stage se fera sur le résultat de cette macro.
Merci
JLuc
ozit avait soumis l'idée :
Salut guruz
Je suis à la recherche d'un exemple pour remplir une demande en stage, toute aide serait la bienvenue
j'ai plusieurs tableaux de 10 colonnes et 5 lignes, séparés les uns des auters par é lignes. J'ai besoins de faire des boucles sur chaque tableau en prenant le contenu de plusieurs cellules (qui ne sont pas sur une meme ligne) et de les copier dans une autre feuille (sur une meme ligne), puis passer au tableau suvant, et faire la meme chose. Je ne sais rien de vba, mais je ne demande qu'à apprendre. Merci de toute contribution.
La rémunération de mon stage se fera sur le résultat de cette macro.
Merci
Donne des exemples de tes donnees et des resultats souhaiter pour commencer. Apres on devrait y voir plus clair pour t'orienter
-- JLuc
ozit avait soumis l'idée :
Salut guruz
Je suis à la recherche d'un exemple pour remplir une demande en stage, toute
aide serait la bienvenue
j'ai plusieurs tableaux de 10 colonnes et 5 lignes, séparés les uns des
auters par é lignes.
J'ai besoins de faire des boucles sur chaque tableau en prenant le contenu de
plusieurs cellules (qui ne sont pas sur une meme ligne) et de les copier
dans une autre feuille (sur une meme ligne), puis passer au tableau suvant,
et faire la meme chose.
Je ne sais rien de vba, mais je ne demande qu'à apprendre.
Merci de toute contribution.
La rémunération de mon stage se fera sur le résultat de cette macro.
Merci
Donne des exemples de tes donnees et des resultats souhaiter pour
commencer. Apres on devrait y voir plus clair pour t'orienter
Je suis à la recherche d'un exemple pour remplir une demande en stage, toute aide serait la bienvenue
j'ai plusieurs tableaux de 10 colonnes et 5 lignes, séparés les uns des auters par é lignes. J'ai besoins de faire des boucles sur chaque tableau en prenant le contenu de plusieurs cellules (qui ne sont pas sur une meme ligne) et de les copier dans une autre feuille (sur une meme ligne), puis passer au tableau suvant, et faire la meme chose. Je ne sais rien de vba, mais je ne demande qu'à apprendre. Merci de toute contribution.
La rémunération de mon stage se fera sur le résultat de cette macro.
Merci
Donne des exemples de tes donnees et des resultats souhaiter pour commencer. Apres on devrait y voir plus clair pour t'orienter
-- JLuc
ozit
Vous etes trop bon : J'ai commencé à chercher juste apres mon post, et j'ai réussi a faire quelque chose du genre : ----------------------- Sub RESUME() Sheets("Feuil2").Select Range("A1").Select ActiveCell.FormulaR1C1 = "Nom" Range("B1").Select ActiveCell.FormulaR1C1 = "Prenom" Range("C1").Select ActiveCell.FormulaR1C1 = "SALAIRE NET" Range("D1").Select
Sheets("Feuil1").Select
ligneRecap = 1 For i = 2 To [a19000].End(xlUp).Row Step 26 If Worksheets("feuil1").Cells(i + 2, 5) <> "" Then ligneRecap = ligneRecap + 1 Worksheets("feuil1").Cells(i + 2, 5).Copy Sheets("feuil2").Cells(ligneRecap, 1) Worksheets("feuil1").Cells(i + 2, 6).Copy Sheets("feuil2").Cells(ligneRecap, 2) Worksheets("feuil1").Cells(i + 3, 5).Copy Sheets("feuil2").Cells(ligneRecap, 3) End If Next i
Sheets("Feuil1").Select End Sub ---------------------------
Je ne sais pas comment faire pour que le resultat aille dans une nouvelle feuille créée avec comme nom de feuille la date du jour. Merci
"ozit" a écrit dans le message de news: 440c3a42$0$21097$
Salut guruz
Je suis à la recherche d'un exemple pour remplir une demande en stage, toute aide serait la bienvenue
j'ai plusieurs tableaux de 10 colonnes et 5 lignes, séparés les uns des auters par é lignes. J'ai besoins de faire des boucles sur chaque tableau en prenant le contenu de plusieurs cellules (qui ne sont pas sur une meme ligne) et de les copier dans une autre feuille (sur une meme ligne), puis passer au tableau suvant, et faire la meme chose. Je ne sais rien de vba, mais je ne demande qu'à apprendre. Merci de toute contribution.
La rémunération de mon stage se fera sur le résultat de cette macro.
Merci
Vous etes trop bon :
J'ai commencé à chercher juste apres mon post, et j'ai réussi a faire
quelque chose du genre :
-----------------------
Sub RESUME()
Sheets("Feuil2").Select
Range("A1").Select
ActiveCell.FormulaR1C1 = "Nom"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Prenom"
Range("C1").Select
ActiveCell.FormulaR1C1 = "SALAIRE NET"
Range("D1").Select
Sheets("Feuil1").Select
ligneRecap = 1
For i = 2 To [a19000].End(xlUp).Row Step 26
If Worksheets("feuil1").Cells(i + 2, 5) <> "" Then
ligneRecap = ligneRecap + 1
Worksheets("feuil1").Cells(i + 2, 5).Copy
Sheets("feuil2").Cells(ligneRecap, 1)
Worksheets("feuil1").Cells(i + 2, 6).Copy
Sheets("feuil2").Cells(ligneRecap, 2)
Worksheets("feuil1").Cells(i + 3, 5).Copy
Sheets("feuil2").Cells(ligneRecap, 3)
End If
Next i
Sheets("Feuil1").Select
End Sub
---------------------------
Je ne sais pas comment faire pour que le resultat aille dans une nouvelle
feuille créée avec comme nom de feuille la date du jour.
Merci
"ozit" <ozit@free.fr> a écrit dans le message de news:
440c3a42$0$21097$626a54ce@news.free.fr...
Salut guruz
Je suis à la recherche d'un exemple pour remplir une demande en stage,
toute aide serait la bienvenue
j'ai plusieurs tableaux de 10 colonnes et 5 lignes, séparés les uns des
auters par é lignes.
J'ai besoins de faire des boucles sur chaque tableau en prenant le contenu
de plusieurs cellules (qui ne sont pas sur une meme ligne) et de les
copier dans une autre feuille (sur une meme ligne), puis passer au tableau
suvant, et faire la meme chose.
Je ne sais rien de vba, mais je ne demande qu'à apprendre.
Merci de toute contribution.
La rémunération de mon stage se fera sur le résultat de cette macro.
Vous etes trop bon : J'ai commencé à chercher juste apres mon post, et j'ai réussi a faire quelque chose du genre : ----------------------- Sub RESUME() Sheets("Feuil2").Select Range("A1").Select ActiveCell.FormulaR1C1 = "Nom" Range("B1").Select ActiveCell.FormulaR1C1 = "Prenom" Range("C1").Select ActiveCell.FormulaR1C1 = "SALAIRE NET" Range("D1").Select
Sheets("Feuil1").Select
ligneRecap = 1 For i = 2 To [a19000].End(xlUp).Row Step 26 If Worksheets("feuil1").Cells(i + 2, 5) <> "" Then ligneRecap = ligneRecap + 1 Worksheets("feuil1").Cells(i + 2, 5).Copy Sheets("feuil2").Cells(ligneRecap, 1) Worksheets("feuil1").Cells(i + 2, 6).Copy Sheets("feuil2").Cells(ligneRecap, 2) Worksheets("feuil1").Cells(i + 3, 5).Copy Sheets("feuil2").Cells(ligneRecap, 3) End If Next i
Sheets("Feuil1").Select End Sub ---------------------------
Je ne sais pas comment faire pour que le resultat aille dans une nouvelle feuille créée avec comme nom de feuille la date du jour. Merci
"ozit" a écrit dans le message de news: 440c3a42$0$21097$
Salut guruz
Je suis à la recherche d'un exemple pour remplir une demande en stage, toute aide serait la bienvenue
j'ai plusieurs tableaux de 10 colonnes et 5 lignes, séparés les uns des auters par é lignes. J'ai besoins de faire des boucles sur chaque tableau en prenant le contenu de plusieurs cellules (qui ne sont pas sur une meme ligne) et de les copier dans une autre feuille (sur une meme ligne), puis passer au tableau suvant, et faire la meme chose. Je ne sais rien de vba, mais je ne demande qu'à apprendre. Merci de toute contribution.
La rémunération de mon stage se fera sur le résultat de cette macro.
Merci
Ardus Petus
Essaie le code suivant. J'ai renommé la macro car Resume est un mot réservé
Cordialement, -- AP
'------------------------------------------------ Sub CopyToResume() Dim lignerecap As Long Dim destWS As Worksheet
Set destWS = Worksheets.Add With destWS .Name = Format(Now, "dd-mm-yyyy") .Range("A1") = "Nom" .Range("B1") = "Prenom" .Range("C1") = "SALAIRE NET" End With lignerecap = 1 For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row Step 26 With Worksheets("Feuil1") If .Cells(i + 2, 5) <> "" Then lignerecap = lignerecap + 1 .Cells(i + 2, 5).Copy _ destWS.Cells(lignerecap, 1) .Cells(i + 2, 6).Copy _ destWS.Cells(lignerecap, 2) .Cells(i + 3, 5).Copy _ destWS.Cells(lignerecap, 3) End If End With Next i End Sub '-------------------------------------------
"ozit" a écrit dans le message de news:440c5589$0$27084$
Vous etes trop bon : J'ai commencé à chercher juste apres mon post, et j'ai réussi a faire quelque chose du genre : ----------------------- Sub RESUME() Sheets("Feuil2").Select Range("A1").Select ActiveCell.FormulaR1C1 = "Nom" Range("B1").Select ActiveCell.FormulaR1C1 = "Prenom" Range("C1").Select ActiveCell.FormulaR1C1 = "SALAIRE NET" Range("D1").Select
Sheets("Feuil1").Select
ligneRecap = 1 For i = 2 To [a19000].End(xlUp).Row Step 26 If Worksheets("feuil1").Cells(i + 2, 5) <> "" Then ligneRecap = ligneRecap + 1 Worksheets("feuil1").Cells(i + 2, 5).Copy Sheets("feuil2").Cells(ligneRecap, 1) Worksheets("feuil1").Cells(i + 2, 6).Copy Sheets("feuil2").Cells(ligneRecap, 2) Worksheets("feuil1").Cells(i + 3, 5).Copy Sheets("feuil2").Cells(ligneRecap, 3) End If Next i
Sheets("Feuil1").Select End Sub ---------------------------
Je ne sais pas comment faire pour que le resultat aille dans une nouvelle feuille créée avec comme nom de feuille la date du jour. Merci
Essaie le code suivant.
J'ai renommé la macro car Resume est un mot réservé
Cordialement,
--
AP
'------------------------------------------------
Sub CopyToResume()
Dim lignerecap As Long
Dim destWS As Worksheet
Set destWS = Worksheets.Add
With destWS
.Name = Format(Now, "dd-mm-yyyy")
.Range("A1") = "Nom"
.Range("B1") = "Prenom"
.Range("C1") = "SALAIRE NET"
End With
lignerecap = 1
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row Step 26
With Worksheets("Feuil1")
If .Cells(i + 2, 5) <> "" Then
lignerecap = lignerecap + 1
.Cells(i + 2, 5).Copy _
destWS.Cells(lignerecap, 1)
.Cells(i + 2, 6).Copy _
destWS.Cells(lignerecap, 2)
.Cells(i + 3, 5).Copy _
destWS.Cells(lignerecap, 3)
End If
End With
Next i
End Sub
'-------------------------------------------
"ozit" <ozit@free.fr> a écrit dans le message de
news:440c5589$0$27084$626a54ce@news.free.fr...
Vous etes trop bon :
J'ai commencé à chercher juste apres mon post, et j'ai réussi a faire
quelque chose du genre :
-----------------------
Sub RESUME()
Sheets("Feuil2").Select
Range("A1").Select
ActiveCell.FormulaR1C1 = "Nom"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Prenom"
Range("C1").Select
ActiveCell.FormulaR1C1 = "SALAIRE NET"
Range("D1").Select
Sheets("Feuil1").Select
ligneRecap = 1
For i = 2 To [a19000].End(xlUp).Row Step 26
If Worksheets("feuil1").Cells(i + 2, 5) <> "" Then
ligneRecap = ligneRecap + 1
Worksheets("feuil1").Cells(i + 2, 5).Copy
Sheets("feuil2").Cells(ligneRecap, 1)
Worksheets("feuil1").Cells(i + 2, 6).Copy
Sheets("feuil2").Cells(ligneRecap, 2)
Worksheets("feuil1").Cells(i + 3, 5).Copy
Sheets("feuil2").Cells(ligneRecap, 3)
End If
Next i
Sheets("Feuil1").Select
End Sub
---------------------------
Je ne sais pas comment faire pour que le resultat aille dans une nouvelle
feuille créée avec comme nom de feuille la date du jour.
Merci
Essaie le code suivant. J'ai renommé la macro car Resume est un mot réservé
Cordialement, -- AP
'------------------------------------------------ Sub CopyToResume() Dim lignerecap As Long Dim destWS As Worksheet
Set destWS = Worksheets.Add With destWS .Name = Format(Now, "dd-mm-yyyy") .Range("A1") = "Nom" .Range("B1") = "Prenom" .Range("C1") = "SALAIRE NET" End With lignerecap = 1 For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row Step 26 With Worksheets("Feuil1") If .Cells(i + 2, 5) <> "" Then lignerecap = lignerecap + 1 .Cells(i + 2, 5).Copy _ destWS.Cells(lignerecap, 1) .Cells(i + 2, 6).Copy _ destWS.Cells(lignerecap, 2) .Cells(i + 3, 5).Copy _ destWS.Cells(lignerecap, 3) End If End With Next i End Sub '-------------------------------------------
"ozit" a écrit dans le message de news:440c5589$0$27084$
Vous etes trop bon : J'ai commencé à chercher juste apres mon post, et j'ai réussi a faire quelque chose du genre : ----------------------- Sub RESUME() Sheets("Feuil2").Select Range("A1").Select ActiveCell.FormulaR1C1 = "Nom" Range("B1").Select ActiveCell.FormulaR1C1 = "Prenom" Range("C1").Select ActiveCell.FormulaR1C1 = "SALAIRE NET" Range("D1").Select
Sheets("Feuil1").Select
ligneRecap = 1 For i = 2 To [a19000].End(xlUp).Row Step 26 If Worksheets("feuil1").Cells(i + 2, 5) <> "" Then ligneRecap = ligneRecap + 1 Worksheets("feuil1").Cells(i + 2, 5).Copy Sheets("feuil2").Cells(ligneRecap, 1) Worksheets("feuil1").Cells(i + 2, 6).Copy Sheets("feuil2").Cells(ligneRecap, 2) Worksheets("feuil1").Cells(i + 3, 5).Copy Sheets("feuil2").Cells(ligneRecap, 3) End If Next i
Sheets("Feuil1").Select End Sub ---------------------------
Je ne sais pas comment faire pour que le resultat aille dans une nouvelle feuille créée avec comme nom de feuille la date du jour. Merci
