Macro pour placer des saisies sur même feuille, si H3 égal Midi colonnes ...

Créer une discussion
Répondre

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
C

Christian0258

XLDnaute Accro
Bonjour à tout le forum,

Je vous souhaite une Bonne et Douce Année 2013 avec, bien sur, la santé.


Je souhaiterais votre aide pour l'écriture d'une macro qui devra placer selon condition, dans la même feuille, des données saisies...

voir fichier joint

Merci pour le temps que vous voudrez bien vouloir m'accorder.


Bien à vous,
Christian
 

Pièces jointes

Trier par date Trier par votes
Re : Macro pour placer des saisies sur même feuille, si H3 égal Midi colonnes ...

Bonjour Christian, le forum,

Avec mes meilleurs voeux pour 2013 🙂

Voici une solution dans le fichier joint :

Code: 
Sub Valider()
Dim P As Range, c As Range
Feuil1.Activate 'CodeName de la feuille "Saisies"
With Feuil3 'CodeName de la feuille "Param"
  If [H3] = "MIDI" And [H4] = .[F2] Then [B5:F65536].Clear 'RAZ
  On Error Resume Next
  Set P = [I5:I24].SpecialCells(xlCellTypeConstants, 1)
  If Err = 0 Then
    Set c = IIf([H3] = "MIDI", [B65536], [E65536]).End(xlUp)(2)
    [H4].Copy c
    Set P = Intersect(P.EntireRow, [H:I])
    P.Copy c(2)
    c(2).Resize(P.Count / 2, 2).Borders(xlEdgeBottom).Weight = xlThin
  End If
  Set c = Nothing
  Set c = .[F:F].Find([H3], LookIn:=xlValues)
  Set c = .Cells(c.Row, "F").Resize(65537 - c.Row).Find([H4])(2)
  If c = "" Then Set c = .[F1]
  If c = "MIDI" Or c = "SOIR" Then [H3] = c: Set c = c(2)
  [H4] = c
End With
End Sub
A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro pour placer des saisies sur même feuille, si H3 égal Midi colonnes ...

Re, le forum, bonjour à toutes et à tous,

Je sollicite, à nouveau votre aide, pour une petite amélioration sur mon projet.
Le travail de job75 fonctionne parfaitement, mais je voudrais savoir si la modif demandée est faisable...?

voir fichier joint

Merci pour le temps que vous voudrez bien vouloir m'accorder.

Bien amicalement,
Chrsitian
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro pour placer des saisies sur même feuille, si H3 égal Midi colonnes ...

Bonjour Christian,

J'ai fait ça un peu rapidement car pas trop le temps :

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [I5:I24]) Is Nothing Or Target.Count > 1 Then Exit Sub
If Target(1, 0) = "" Then Exit Sub
Dim r As Range, v
For Each r In [I5:I24]
  If Application.CountIf(Feuil3.[I:I], r(1, 0)) = 0 Then v = v + r
Next
Set r = Feuil3.[I:I].Find(Target(1, 0), , xlValues)
If r Is Nothing Then v = Val([I1]) - v Else: v = r(1, 2)
If Target = "" And v > 0 Then Target = v
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [I5:I24]) Is Nothing Or Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
Dim r As Range, v
For Each r In [I5:I24]
  If Application.CountIf(Feuil3.[I:I], r(1, 0)) = 0 Then v = v + r
Next
Set r = Feuil3.[I:I].Find(Target(1, 0), , xlValues)
If r Is Nothing Then v = Val([I1]) - v Else: v = r(1, 2)
If Target(1, 0) = "" Then Target = "" Else _
If Val(Target) <= 0 Or v < 0 Then Target = "": Target.Select
End Sub
Merci de vérifier que c'est bon dans tous les cas.

Fichier joint.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro pour placer des saisies sur même feuille, si H3 égal Midi colonnes ...

Re, bonjour le forum, job75,

Merci pour ton aide si précieuse.

Après essais ça fonctionne correctement, en mettant bien, sur le ou les plats déclarés dans tableau feuille "Param", la quantité max autorisée, mais il est possible de taper un chiffre supérieur....peux-tu faire en sorte d'interdir une qté supérieure?.

Merci pour le temps que tu m'accordes.

A te lire...
Bien à toi,

Christian
 
Vote positif 0 Vote négatif
Re : Macro pour placer des saisies sur même feuille, si H3 égal Midi colonnes ...

Christian0258 à dit:
mais il est possible de taper un chiffre supérieur....
Cliquez pour agrandir...

Oui bien vu Christian :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [I5:I24]) Is Nothing Or Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
Dim r As Range, v
For Each r In [I5:I24]
  If Application.CountIf(Feuil3.[I:I], r(1, 0)) = 0 Then v = v + Val(r)
Next
Set r = Feuil3.[I:I].Find(Target(1, 0), , xlValues)
If r Is Nothing Then
  v = Val([I1]) - v
Else
  v = r(1, 2)
  If Target > v Then Target = v
End If
If Target(1, 0) = "" Then Target = "" Else _
If Val(Target) <= 0 Or v < 0 Then Target = "": Target.Select
End Sub
Fichier (2).

Edit : il fallait Val(r) pour éviter le bug avec des valeurs textes...

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Macro pour placer des saisies sur même feuille, si H3 égal Midi colonnes ...

Re,

La macro beuguait si l'on entrait du texte en I5:I24...

J'édite le post #7 avec :

If Application.CountIf(Feuil3.[I:I], r(1, 0)) = 0 Then v = v + Val(r)

A+
 
Vote positif 0 Vote négatif
Re : Macro pour placer des saisies sur même feuille, si H3 égal Midi colonnes ...

Re, le forum, job75,

Oups, pas vu post 9

Ok j'ai appliqué ta correction.

Dis-moi, job75, comment faire pour imprimer automatiquement la zone déclarée (B1:F50) si H3=Midi et si H4=Entrées et si le total des plats du soir est sup à 0. (autrement dit avant de resaisir sur une autre date..)

Merci pour tout,

Salut l'artiste.

Christian
 
Vote positif 0 Vote négatif
Re : Macro pour placer des saisies sur même feuille, si H3 égal Midi colonnes ...

Bonjour Christian,

Pour l'impression des colonnes B:F, remplace dans la macro Valider :

Code: 
If c = "" Then Set c = .[F1]
par :

Code: 
If c = "" Then
  Set c = .[F1]
  If Val([K10]) Then [B:F].PrintOut
End If
La Mise en page doit être sur 1 page en hauteur.

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro pour placer des saisies sur même feuille, si H3 égal Midi colonnes ...

Re,

Mais c'est peut-être plutôt ceci :

Code: 
If c = "" Then
   Set c = .[F1]
   If Application.Sum([F5:F65536]) Then [B:F].PrintOut
 End If
A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro pour placer des saisies sur même feuille, si H3 égal Midi colonnes ...

Re, le forum,

Bonjour à tout le forum,

Me revoila avec cette appli....j'ai une petite question ;

-comment faire pour que la macro "Valide" (de job75) ne copie que les valeurs et non les formules...

voir fichier joint...

Merci, à nouveau, pour votre aide si précieuse.

Bien à vous.
Christian
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro pour placer des saisies sur même feuille, si H3 égal Midi colonnes ...

Bonjour Christian, le forum,

Je n'avais pas vu que vous aviez mis des Select et autre Selection dans ma macro Valider.

Horreur et putréfaction 😡 virez-moi ça et on pourra continuer proprement.

A+
 
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

A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
474
Anthony_51
A
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
2 K
Webperegrino
W
W
  • Question Question
XL 2016 Bien rapatrier des saisies sur cinq colonnes par jour en feuille voisine
Réponses
9
Affichages
833
Webperegrino
W
S
  • Résolu(e)
XL 2016 Comment classer des résultats avec attributs et couleurs et avoir la somme des classes sur une feuille Excel?
Réponses
6
Affichages
858
stuka
S
C
  • Question Question
XL pour MAC Créer des index pour déplacement rapide sur la même feuille
2
Réponses
22
Affichages
1 K
Staple1600
Staple1600
A
  • Question Question
XL 2013 Macro pour copier des colonne d'une feuille A dans un classeur sur une feuille B dans un autre classeur .
Réponses
7
Affichages
1 K
Hasco
Hasco
D
  • Question Question
XL 2010 Macro simple pour copier/couper/coller des lignes à la suite des autres d'une feuille à une autre
Réponses
3
Affichages
1 K
st007
S
C
  • Question Question
Autres Macro pour mettre le numérique de la même couleur que le fond cellule...
Réponses
2
Affichages
726
Christian0258
C
C
  • Question Question
Autres Macro, sous ThisWorkbook , qui ne fonctionne pas avec un "collé"...
Réponses
6
Affichages
1 K
Christian0258
C
C
  • Question Question
Autres Macro pour remettre des quantités en stock, devant le bon produit...
Réponses
13
Affichages
1 K
Webperegrino
W
C
  • Question Question
Autres macro pour mettre un contour et un mot avec numéro
Réponses
5
Affichages
848
Christian0258
C
Etevaldo Santos
  • Résolu(e)
XL 2019 Filtre dynamique (VBA) sur des colonnes avec le format número or date
Réponses
6
Affichages
2 K
CJA33
C
Etevaldo Santos
  • Question Question
XL 2019 Mise à jour automatique à distance des macro VBA dans un fichier sur un autre ordinateur
Réponses
3
Affichages
4 K
TooFatBoy
TooFatBoy
L
  • Question Question
XL 2016 aide pour une macro qui filtre et range suivant des colonnes
Réponses
11
Affichages
2 K
laurent54000
L
D
  • Question Question
XL pour MAC Réaffectation (très complexe) de données dans des lignes supplémentaires générées par Macro
Réponses
3
Affichages
1 K
didcac
D
N
  • Question Question
XL 2016 Transposer des informations pour creer un planning
Réponses
4
Affichages
1 K
WTF
WTF
T
  • Question Question
XL 2016 Macro - Si ajout d'une cellule dans une feuille, recopiage dans les autres feuilles du classeur
Réponses
0
Affichages
701
tetter88
T
D
  • Question Question
XL pour MAC Retraitement (trop complexe pour moi) d'une base de données
3 4 5
Réponses
74
Affichages
11 K
didcac
D
K
  • Question Question
XL 2013 Transposer Pour chaque identifiant unique les colonnes en lignes
Réponses
7
Affichages
1 K
KIM
K
C
  • Question Question
Liste validation si clic sur cellules colonne H...
2
Réponses
20
Affichages
3 K
Christian0258
C
Retour