Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion a10
  • 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
A

a10

XLDnaute Impliqué
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+
 
Trier par date Trier par votes
Re : macro

Bonsoir a10,

Voici ce que je peux faire de mieux sans fichier exmeple. A toi de l'adapter :
VB: 
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+
 
Vote positif 0 Vote négatif
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"
 
Vote positif 0 Vote négatif
Re : macro

Bonjour,

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

?!?!?! 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
Cliquez pour agrandir...

Faut savoir ce que tu veux !

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

A+
 
Vote positif 0 Vote négatif
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+
 
Vote positif 0 Vote négatif
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+
 
Vote positif 0 Vote négatif
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+
 
Vote positif 0 Vote négatif
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+
 
Vote positif 0 Vote négatif
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+
 
Vote positif 0 Vote négatif
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+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

C
  • Résolu(e)
Microsoft 365 Calcul vitesse course à pieds
Réponses
2
Affichages
227
Chris5633
C
S
  • Résolu(e)
XL 2021 enregistrer xltm en xlsm avec chemin automatiquement
2
Réponses
27
Affichages
590
TooFatBoy
K
  • Résolu(e)
XL 2010 Roulement automatique
Réponses
9
Affichages
351
komarlehomard
K
A
  • Résolu(e)
XL 2021 Création de tableau
2
Réponses
29
Affichages
991
Alamyr
A
B
  • Question Question
XL 2016 Macro "Double-clic + Entrée"
2
Réponses
16
Affichages
388
job75
F
  • Question Question
XL 2016 [VBA] Coller du texte sans formatage
Réponses
8
Affichages
191
F22Raptor
F
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
196
sylvanu
  • Résolu(e)
XL 2021 Export d'un Userform au format Docx;
3 4 5
Réponses
60
Affichages
1 K
job75
  • Résolu(e)
XL 2021 Temps réel d'éxécution macro
Réponses
3
Affichages
252
treza88
B
  • Question Question
XL 2021 Formule suivi de data
Réponses
13
Affichages
515
Dand87
D
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
532
AtTheOne
O
  • Question Question
Microsoft 365 Travail rénuméré à faire sur excel
Réponses
5
Affichages
228
sylvanu
A
  • Question Question
XL 2021 Consommation en fonction des semaines
Réponses
1
Affichages
228
sylvanu
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
782
lynyrd
T
  • Résolu(e)
Microsoft 365 Macro pour changer la couleur d'une cellule si...
2 3
Réponses
36
Affichages
2 K
Toubabou
T
W
  • Question Question
Microsoft 365 Macro pour un bilan fonctionnement coloré
Réponses
3
Affichages
132
sylvanu
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
698
jeff1494
C
  • Question Question
Microsoft 365 Fonction si
Réponses
7
Affichages
218
Cathel
C
M
  • Résolu(e)
Microsoft 365 $ Macro pour copier un exemple et$.....
Réponses
9
Affichages
513
sousou
J
  • Question Question
XL 2016 Problème envoi mail par macro suite passage Office 365
Réponses
11
Affichages
684
Jean Michel
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…