Résultats de la recherche

j'ai trouvé ceci qui marche Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("E5:F5")) Is Nothing Then Application.EnableEvents = False Dim cell As Range For Each cell In Intersect(Target, Range("E5:F5")) If...

Bonjour et merci de vos réponses, mais celles-ci ne fonctionnent pas :rolleyes:

chez moi, elle ne fonctionne pas 🤔 et si je ne fusionne pas la E5 à F5 cela ne fonctionne pas non plus sûrement un problème dans ma macro

Bonjour tout le monde, je cherche à faire une multiplication avec une macro. J'ai une cellule fusionnée (E5 F5) et quand j'écris par exemple 5 la macro m'affiche 5.000 . J'avais ceci mais cela ne fonctionne pas. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If...

Merci et bonne journée

@JHA un grand merci ! Mais comment puis-je déduire le surplus ?

Bonjour tout le monde, je réalise un petit programme, mais je suis un peu perdu dans mes formules donc j'ai besoin d'aide, merci d'avance ! Toutes les explications sont dans le fichier. (je serai de retour vers 22h30 donc je ne sais plus répondre à vos questions)

oups j'ai loupé des post 😜 déso

ce n'est pas la fin du monde quand même ? j'ai pensé à enlever le mot de passe du projet vba et pour le reste, il fallait juste aller sur rétrécir la fenêtre, désolé quand même d'avoir oublié de le signaler !

Avoir descendu la ligne cela change grand chose ?

Pour moi, vous parler un peu chinois :rolleyes: dois je modifier quelque chose dans le code @vgendron ?

Un grand merci à toi et garde bien ta boule de cristal . Bonne journée à vous !!!

Merci pour l'explication mais cela ne résout pas mon problème ou alors, il faut modifier le code car la colonne 5 (colonne E) il y aura toujours des cellules vides

@patricktoulon quand je modifie avec "Cells(47, 5).End(xlUp).Offset(1) = [h36]" les données vont en E3 pourquoi ??? 🤔

les cellules de réceptions sont E38:E46 et la cellule de donnée est H36

c'est vrai que j'aurai dû mettre le fichier plus tôt

Bonjour tout le monde, j'ai incorporé le code de @patricktoulon qui a bien voulu m'aider dans le poste précédant et je le remercie pour son travaile. voici son code. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$1" Then Application.EnableEvents = False...

[/USER] Super boulot, un grand merci et bonne soirée

oui j'ai lu mais ta macro copie la valeur de D1 dans toutes les cellules et non en A1

Salut, cela ne correspond pas à ma demande, merci quand même. Mon je désire copier/coller la cellule D1 dans A1 puis si je mets une autre date dans la cellule D1, elle se copie en A2..... puis arrivé à la cellule A10 on efface le tout et puis recommence. Mise en place "Log" (historique...