Faire coller une valeurs sous la premiere cellule vide..

[Guido]

Bonjour le Forum

Afin d'automatisé le tableau gestion.

Je cherche une macros pour faire se transfert. Des qu'une journée est terminée.. selon le conditions

expliquées dans les onglets du fichier

Voir le fichier

Merci

Guido

 

[Lone-wolf]

Bonjour Guido , le Forum

Comme je suis sous Excel 2010, je ne sais pas si la macro sera fonctionnelle. Dans la feuille du 31, inscrit le mot en minuscule, puis utilise TAB du clavier. Dans les colonnes des résultats, j'ai enlevé la couleur de fond, la mise en forme se fera lors de l'ajout des données. À l'ouverture du classeur, la feuille qui correspond à la date du jour sera activée.

Conseil: si tu note Date, dans la cellule il faut inscrire une date valide et non 31012017, ceci est et est considéré comme un nombre.

 

[Guido]

Bonjour le Forum et Lone Wolf

Pour le moment après avoir modifier le mot STPW en minuscule, et modifier la date en 01.02.2017

Rien ne se passe ????

Merci pour votre futur aide, même avec un macro et bouton...???

Amitiés

Guido

 

[Lone-wolf]

Re

Dans la feuille du 31 en M22 tu à bien 31.01.2017 qui correpond au nom de la feuille et les colonnes correspondent à la journée en cours, pourquoi inscrire 01.02.2017???

 

[Guido]

Bonjour le Forum

J'étais absent hier..

J'ai essayé mais sans succès..

Question

Peut t'ont garder la même feuille et ajouté la prochaine journée ?? Des que le mot stpw est inscrit..

Merci pour votre aide

Guido

 

[Lone-wolf]

Bonsoir Guido , Mytå

Si la macro, ne fonctionne pas, je ne peux rien faire de plus. Quand est-ce que tu vas passer à 2013?

 

[job75]

Bonsoir Guido, Lone-wolf, Mytå,

Je sais depuis longtemps que Guido adore les choses simples :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$M$22" Then Cancel = True: Target = Target + 1
If Intersect(Target, [B3,B5,B7,B9,B11,B13,B15,B17,B19]) Is Nothing Then Exit Sub
Cancel = True
With [P:P].Find("", [P4], xlValues)
  [M22].Copy .Cells
  .Cells(1, 2) = Target(1, 2)
End With
End Sub

Fichier joint.

Bonne nuit.

 

[Guido]

Re le Forum

Et puis, ça fonctionne . . .

Mytå

Bonsoir le Forum,Lone-wolf, Mytå,

J'ai pas réussi,pourtant .j'ai vraiment essayé.

Je ne vois pas mon erreur...???ou , l'application ne suit pas...???

Merci dommage car la gestion jour par jour m'aurait bien plu..oui.

A plus si ,je retrouve la solution.

A plus

Guido

 

[Guido]

Bonsoir Guido, Lone-wolf, Mytå,

Je sais depuis longtemps que Guido adore les choses simples :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$M$22" Then Cancel = True: Target = Target + 1
If Intersect(Target, [B3,B5,B7,B9,B11,B13,B15,B17,B19]) Is Nothing Then Exit Sub
Cancel = True
With [P:P].Find("", [P4], xlValues)
  [M22].Copy .Cells
  .Cells(1, 2) = Target(1, 2)
End With
End Sub

Fichier joint.
Bonne nuit.

Re

Bonsoir Job75 ,le Forum , Lone-wolf, Mytå,

Merci job75 pour le fichier.

Je vais faire un essai demain matin, et te dirais mon constat, tout en sachant que cela vas m'intéressé

Bonne nuit les Amis

A demain

Guido

 

[job75]

Bonjour Guido, le forum,

Vous aviez formaté à l'avance une tripotée de lignes pour le tableau des colonnes P:AA.

C'est tout à fait inutile, il suffit qu'au départ la plage P5:AA5 soit formatée.

La nouvelle macro :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$M$22" Then Cancel = True: Target = Target + 1
If Intersect(Target, [B3,B5,B7,B9,B11,B13,B15,B17,B19]) Is Nothing Then Exit Sub
Cancel = True
With [P:P].Find("", [P4], xlValues)
  If .Row > 36 Then .EntireRow(2).Insert
  .Cells(0).Resize(, 12).AutoFill .Cells(0).Resize(2, 12), xlFillFormats
  .Cells = [M22]
  [M22] = [M22] + 1 'économise un double-clic
  .Cells(1, 2) = Target(1, 2)
End With
End Sub

Fichier (2).

Edit : j'ai ajouté une ligne de code pour économiser un double-clic.

Bonne journée.

 

[job75]

Re,

Il y aura peut-être des formules en colonnes P:AA alors bien sûr il faudra les copier :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$M$22" Then Cancel = True: Target = Target + 1
If Intersect(Target, [B3,B5,B7,B9,B11,B13,B15,B17,B19]) Is Nothing Then Exit Sub
Cancel = True
With [P:P].Find("", [P4], xlValues)
  If .Row > 36 Then .EntireRow(2).Insert
  .Cells(0).Resize(, 12).Copy .Cells 'pour copier aussi les formules
  .Cells.Resize(, 12).SpecialCells(xlCellTypeConstants) = "" 'RAZ (si nécessaire)
  .Cells = [M22]
  [M22] = [M22] + 1 'économise un double-clic
  .Cells(1, 2) = Target(1, 2)
End With
End Sub

Fichier (2 bis).

A+

 

[Lone-wolf]

Bonjour Guido, Mytå, job

@Mytå: merci pour le retour.

 

[Guido]

Bonsoir Job75 , Le Forum , Lone-wolf, Mytå,

Merci job75 pour le dernier fichier.

Pour moi c'est Bon ,Ok

Guido