Faire coller une valeurs sous la premiere cellule vide..

Guido

XLDnaute Accro
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
 

Pièces jointes

  • Faire affiché dans la premiere ligne vide de la colonne...xls
    271.5 KB · Affichages: 57

Lone-wolf

XLDnaute Barbatruc
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.
 

Pièces jointes

  • Faire affiché dans la premiere ligne vide de la colonne...xls
    290.5 KB · Affichages: 55
Dernière édition:

Guido

XLDnaute Accro
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
 

job75

XLDnaute Barbatruc
Bonsoir Guido, Lone-wolf, Mytå,

Je sais depuis longtemps que Guido adore les choses simples :
Code:
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.
 

Pièces jointes

  • Faire afficher dans la premiere ligne vide de la colonne(1).xls
    207.5 KB · Affichages: 41

Guido

XLDnaute Accro
Bonsoir Guido, Lone-wolf, Mytå,

Je sais depuis longtemps que Guido adore les choses simples :
Code:
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

XLDnaute Barbatruc
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 :
Code:
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.
 

Pièces jointes

  • Faire afficher dans la premiere ligne vide de la colonne(2).xls
    118 KB · Affichages: 44
Dernière édition:

job75

XLDnaute Barbatruc
Re,

Il y aura peut-être des formules en colonnes P:AA alors bien sûr il faudra les copier :
Code:
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+
 

Pièces jointes

  • Faire afficher dans la premiere ligne vide de la colonne(2 bis).xls
    118.5 KB · Affichages: 35

Discussions similaires

Statistiques des forums

Discussions
312 799
Messages
2 092 241
Membres
105 301
dernier inscrit
cathnjp