> Tous les forums > Forum Bureautique
 Cherche PRO pour création de MACROSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Merens
  Posté le 07/09/2019 @ 18:17 
Aller en bas de la page 
Astucien

Amis astuciens(ciennes) bonjour,

SVP je cherche une personne compétente pour me crée une MACRO , et comme je suis pas du tout doué pour ceci....

je souhaite faire un copier/coller pour chaque feuille que je réerai dans mon classeur.

En effet pour info mon classeur est annuel, et chaque feuille représente un mois nommé de Janvier à Décembre.

Le but est que eEXEMPLE, en Septembre, je fasse un copié sur une nouvelle feuille nommée de Octobre,

car les colonnes et les formules ne changent pas.

Pour info, Les colonnes A B C D E sont utilisés basic pour autre chose.

dans la colonne F je veux que la date du jour soit en auto, à chaque fois que je vais rentré un libéllé dans la colonne G

Ceci de F1 à F 100

EXEMPLE SOUHAITE

si je tape, aujourd'huy 102 dans G 62, il y aura en auto 7/09 qui se mettra

idem, si je tape 48 dans G 66, demain dimanche ,il y aura en auto 8/09 qui se mettra

enfin,si je tape 32 dans G 71, mardi prochain,il y aura en auto 10/09 qui se mettra

Si vous connaissez la procédure, merci d'avance.

Cordialement

Merens

Publicité
Debrief
 Posté le 07/09/2019 à 22:44 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Ta macro de PRO c'est juste pour insérer la date ?

Si tu entres un libellé en G, la date du jour se place automatiquement en F, pour la lignes 1 à 100.

- Si tu modifies le libellé en G, la date doit-elle être modifiée ?

- Si tu effaces le libellé en G, la date doit-elle être effacée ?

D.



Modifié par Debrief le 07/09/2019 22:45
Debrief
 Posté le 07/09/2019 à 23:21 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

- Tu vas dans le code VBA (Alt + F11)

- Tu double-cliques sur la feuille concernée

- Sous Option Explicit, tu insères les lignes suivantes

Private Const ColonneDate = "F"
Private Const RangeLibellé = "G1:G100"

Private Sub Worksheet_Change(ByVal Target As Range)

'Si le modification n'est pas sur un libellé on ignore
If Intersect(Target, Me.Range(RangeLibellé)) Is Nothing Then Exit Sub

'Si le libellé est vide alors on vide la date
If IsEmpty(Target) Then
Me.Range(ColonneDate & Target.Row).ClearContents

'Sinon on y place la date si pas déjà présente
Else
If IsEmpty(Me.Range(ColonneDate & Target.Row)) Then
Me.Range(ColonneDate & Target.Row).NumberFormatLocal = "j/mm"
Me.Range(ColonneDate & Target.Row).Value = Now()
End If
End If

End Sub

- La macro sera copiée avec la feuille lors de tes créations de mois à partir du mois précédent.

Cordialement,
D.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
444,00 €Unité centrale Shinobee (Ryzen 3, 16 Go de RAM, SSD 500 Go, Radeon R7 4 Go, Windows 10) à 444 €
Valable jusqu'au 25 Octobre

Amazon fait une promotion sur l'unité centrale Shinobee qui passe à 444 € livrée gratuitement. Cette tour d'ordinateur possède un processeur AMD Ryzen 3 4300GE (4 coeurs / 8 threads), 16 Go de mémoire DDR4, un SSD de 500 Go, une carte graphique AMD Radeon R7 4 Go, un graveur DVD, un adapteur WiFi et tourne sous Windows 10 Pro 64 bits en français que vous pourrez passer gratuitement à Windows 11 si vous le souhaitez.

La tour dispose de 6 ports USB 2.0, 1 port USB 3.0, d'un port Ethernet et d'une prise Jack pour y raccorder des haut-parleurs. Rajoutez simplement un écran (comme cet écran Huawei 24 pouces IPS à 139,99 €), un clavier et une souris (comme ce pack Logitech MK270 à 24,99 €) pour avoir un ordinateur complet largement suffisant pour de la bureautique, Internet, le multimédia et les jeux en HD (Fortnite, Apex, ... tournent sans problème). Une belle affaire qui est garantie 2 ans. 


> Voir l'offre
GratuitUn livre audio offert sur Amazon.fr
Valable jusqu'au 31 Décembre

En vous inscrivant à l'offre d'essai gratuite du service de livres audio Audible (qui appartient à Amazon) vous pourrez télécharger gratuitement un livre audio. L'abonnement passe ensuite à 9,95 € / mois après ce mois d'essai. Notez que l'offre est résiliable à tout moment et facilement et ce, même avant la fin de l'essai gratuit. Les membres Amazon Prime bénéficient de 2 mois gratuits (2 livres audio offerts).

Vous pouvez prendre n'importe quel livre audio parmi une large sélection de 500 000 titres, peu importe sa durée ou son prix. Vous pourrez télécharger et d'écouter (même hors connexion) vos livres via l'application Audible ou directivement via le site.

Vous n'avez pas le temps de lire ? Avec Audible, écoutez vos livres en voiture, en marchant, en faisant du sport, ...


> Voir l'offre
350,70 €Nettoyeur connecté haute-pression Kärcher K7 Premium Smart Control (180 bars) à 350,70 €
Valable jusqu'au 24 Octobre

Cdiscount fait une promotion sur le nettoyeur connecté haute-pression Kärcher K7 Premium Smart Control (180 bars) qui passe à 350,70 € avec le code promo 40BRICOLAGE. On le trouve habituellement autour de 449 €. Nettoyeur haute pression connecté, technologie Smart Connect. Pour usage intensif. Surface conseillée ≈ 60m²/h, moteur à induction refroidi à l’eau, pompe aluminium Premium. Poignée de transport télescopique, pied de stabilité, grandes roues, enrouleur avec flexible haute pression de 10m, nombreux accessoires et rangements. Fonction "Boost" : 15 bars de puissance supplémentaire pour un nettoyage intensif .Connectivité et applications via Smartphone. 


> Voir l'offre

Sujets relatifs
Creation d' une boucle macro dans fichier EXCEL pour impression
macro pour date en pied de page
Creation d' une macro sur EXCEL
MACRO EXCEL MAC POUR ENREGISTRER PDF
Macro excel pour une somme conditionnel
Macro excel pour calcul d’itération
Je cherche a modifier des fichiers pdf qui a été fait pour un imprimeur
Cherche infos pour dessiner des Shapes
Macro pour copie de données selon critère
macro pour copie données ne fonctionne pas
Plus de sujets relatifs à Cherche PRO pour création de MACRO
 > Tous les forums > Forum Bureautique