macro

[a10]

bonjour,

je voudrai avoir une macro simple qui m'ouvre une boite de dialogue pour me demander le jour
si la personne inscrit dans la boite lundi alors il colle les données en a1 si c'est matdi en b1

comment ecrire cette macro?

a+

 

[Fred0o]

Re : macro

Bonsoir a10,

Voici ce que je peux faire de mieux sans fichier exmeple. A toi de l'adapter :

Sub Jour()
    Dim semaine(), j As String
    semaine = Array("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche")
    j = InputBox("Quel jour ? :", "Saisir le jour")
    On Error GoTo Faute_de_Frappe
    Cells(1, WorksheetFunction.Match(j, semaine, 0)) = "Coller ici"
    Exit Sub
Faute_de_Frappe:
    MsgBox ("Le jour " & j & "n'existe pas !")
End Sub

A+

 

[a10]

Re : macro

Bonjour,

ok ma boite s'ouvre bien

mais je voudrais que si j'inscrt lundi il colle en f4
si c'est mardi en f5

etc
On Error GoTo Faute_de_Frappe
Cells(1, WorksheetFunction.Match(j, semaine, 0)) = "Coller ici"

 

[Fred0o]

Re : macro

Bonjour,

mais je voudrais que si j'inscrt lundi il colle en f4
si c'est mardi en f5

?!?!?! Ce n'est pas ce que tu demandais !

je voudrai avoir une macro simple qui m'ouvre une boite de dialogue pour me demander le jour
si la personne inscrit dans la boite lundi alors il colle les données en a1 si c'est matdi en b1

Faut savoir ce que tu veux !

Cells(WorksheetFunction.Match(j, semaine, 0)+3, 6) = "Coller ici"

A+

 

[a10]

Re : macro

bonjour,

en effet quand je dis je colle c'est à dire que j'ai selectionne une plage sur un autre onglet

j'ouvre ma boite de dialogue

et si lundi je colle par exemple en a1

si mardi en d1 mercredi en g1

a+

 

[Fred0o]

Re : macro

Re-bonsoir,

Prends le dernier code de mon post #4, testes le, et exprimes toi clairement sur ce que tu veux si ça ne va pas. Le mieux restant de joindre un fichier exemple avec un exemple rempli de ce que tu souhaites avoir en final.

A+

 

[a10]

Re : macro

bonjour,
ce code colle en f4 si c'est lundi "coller ici"
c'est bien
juste au lieu de coller "coller ici"
ja'i un esection quer j'ai selctionne avant d'ouvrir maboit eà coller

a+

 

[Fred0o]

Re : macro

Re-bonsoir,

Alors essaie ceci :

    Cells(1, WorksheetFunction.Match(j, semaine, 0)).Select
    ActiveSheet.Paste

A+

 

[a10]

Re : macro

bonjour

le code ne semble pas correspondre à mon besoin
J'ai essayé en remplacant semaine par lundi mais cela ne marche pas
si c'est lundi je colle en f4 la selection ( voici je qui est selectionné au début de la macro)
si c'est mardi en j4

etc

je donne la copie de la macro


je selectionne une feuille
Sheets("recap ").Select
Range("P10:S539").Select
Selection.Copy
Sheets("semaine").Select

'selection du jour
Dim semaine(), j As String
semaine = Array("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche")
j = InputBox("Quel jour ? :", "Saisir le jour")
Cells(WorksheetFunction.Match(j, lundi, 0) + 3, 6) = "Coller ici"



On Error GoTo Faute_de_Frappe

Cells(1, WorksheetFunction.Match(j, semaine, 0)) = "Coller ici"
Exit Sub

Faute_de_Frappe:
MsgBox ("Le jour " & j & "n'existe pas !")

End Sub

a+

 

[pierrejean]

Re : macro

Bonjour a10

Salut fred0o

Vois si tu peux t'inspirer de ceci

 

[a10]

Re : macro

bonjour
la macrose bloque à
UserForm1.Show

a+

 

[a10]

Re : macro

Bonjour

j'ai retiré user form

mais il colle les données pour la journée du samedi alors que j'ai ecrit lundi


si j'ai ecris lundi il colle les données dans la colonne f4 sur la feuille recap

a+

 

[pierrejean]

Re : macro

Re

L'Userform est absolument necessaire et il n'y a aucune raison pour qu'il y ait un bug
Sans l'userform ou as-tu ecrit Lundi ??
Sans fichier je ne peux rien pour toi

 

[a10]

Re : macro

bonjour,
voici la macro
'selection du jour
Dim semaine(), j As String
semaine = Array("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche")
j = InputBox("Quel jour ? :", "Saisir le jour")
' Cells(WorksheetFunction.Match(j, lundi, 0) + 3, 6) = "Coller ici"

'Public jours()
'Public acoller()
'Sub coller()
'Dim jours(), j As String
'semaine = Array("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche")

jours = Array("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche")
acoller = Array("F4", "J4", "L4", "N4", "P4", "R4", "S4")
Sheets("erreurs WMS").Range("i10:l539").Copy
Sheets("recap semaine").Select
'UserForm1.Show
'End Sub
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

On Error GoTo Faute_de_Frappe

Cells(1, WorksheetFunction.Match(j, semaine, 0)) = "Coller ici"
Exit Sub

Faute_de_Frappe:
MsgBox ("Le jour " & j & "n'existe pas !")

End Sub

a+

 

[a10]

Re : macro

Bonjour,

voici la macro que j'ai adapté et qui semble marcher

ila t il des chosesà améliorer?

Range("i10:l539").Select

Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("recap semaine").Select



' UserForm1.Show

'selection du jour
'Dim semaine(), j As String

Dim semaine(), j As String
semaine = Array("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche")
j = InputBox("Quel jour ? :", "Saisir le jour")

'jour = InputBox("Quel jour svp (en minuscule)", "lundi mardi mercredi....etc")

Range("a1000") = j
Range("a1000").Select
For Each cell In Selection

cell.Formula = LCase(cell.Formula)
Next cell
If Range("a1000") = "lundi" Then Range("F4").Select
If Range("a1000") = "mardi" Then Range("j4").Select
If Range("a1000") = "mercredi" Then Range("n4").Select
If Range("a1000") = "jeudi" Then Range("r4").Select
If Range("a1000") = "vendredi" Then Range("v4").Select
If Range("a1000") = "samedi" Then Range("z4").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

a+