Contenu récent par chinel

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