Macro pour connaître le plus grand chiffre

Résolu/Fermé

sabrinaluv Messages postés 108 Date d'inscription dimanche 30 août 2009 Statut Membre Dernière intervention 27 avril 2010 - 14 sept. 2009 à 15:09
sabrinaluv Messages postés 108 Date d'inscription dimanche 30 août 2009 Statut Membre Dernière intervention 27 avril 2010 - 14 sept. 2009 à 16:48

Bonjour,

J'aimerais créer une macro qui me donnerait dans un messagebox le chiffre le plus grand + 1 d'une colonne afin que la personne entre ce chiffre dans une cellule vide.

Merci de votre aide!

A voir également:

Macro pour connaître le plus grand chiffre
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Excel trier par ordre croissant chiffre - Guide
Application pour écrire les chiffre en lettre - Télécharger - Outils professionnels
Macro word - Guide
Photo insta en grand - Guide

5 réponses

Réponse 1 / 5

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 753
14 sept. 2009 à 15:25

Bonjour,
Voici en VBA Excel le code réalisant ce que tu souhaites :
MsgBox = (Application.WorksheetFunction.Max(Columns("E:E")) + 1)
A adapter, ici on l'aura compris le code prends en compte les valeurs contenues dans la colonne E...

Réponse 2 / 5

sabrinaluv Messages postés 108 Date d'inscription dimanche 30 août 2009 Statut Membre Dernière intervention 27 avril 2010 50
14 sept. 2009 à 15:38

Bonjour,

J'ai essayé mais ca dit erreur de syntaxe est-ce normal?

Je veux ajouter ce code a un macro existante qui ajoute une ligne. Est-ce à cause de cela ?

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 753
14 sept. 2009 à 15:42

Excuse moi j'ai saisit trop vite, sans vraiment faire attention... Supprime le "="
MsgBox (Application.WorksheetFunction.Max(Columns("E:E")) + 1)

Réponse 3 / 5

sabrinaluv Messages postés 108 Date d'inscription dimanche 30 août 2009 Statut Membre Dernière intervention 27 avril 2010 50
14 sept. 2009 à 15:49

Merci énormément Pikaju, tout fonctionne!

J'ai une autre question pour toi, crois-tu qu'il est possible d'ajouter le résultat de la msgbox dans la ligne que j'ai ajouté au début de ma macro a la colonne E.

Merci!

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 753
14 sept. 2009 à 15:51

oui : par exemple si en E1 tu souhaitres afficher le max de la colonne E + 1 :

[E1] = Application.WorksheetFunction.Max(Columns("E:E")) + 1

Réponse 4 / 5

sabrinaluv Messages postés 108 Date d'inscription dimanche 30 août 2009 Statut Membre Dernière intervention 27 avril 2010 50
14 sept. 2009 à 16:01

Merci ca fonctionne sauf que je ne sais jamais quel sera le chiffre de la ligne c'est la sélection de l'utilisateur qui décidera où sera la nouvelle ligne. Voici le début de ma macro cela pourrait de donner une idée.

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow

Merci beaucoup!

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 753
14 sept. 2009 à 16:15

ActiveCell 'définit la cellule active
pour décaler utiliser ActiveCell.Offset(1, 0)
ActiveCell.Offset(25,-3) est relatif à la cellule située 25 lignes sous la cellule active et 3 colonnes à gauche.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

sabrinaluv Messages postés 108 Date d'inscription dimanche 30 août 2009 Statut Membre Dernière intervention 27 avril 2010 50
14 sept. 2009 à 16:48

Merci beaucoup, ca marche! Bonne journée!

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

ALEXIA A BESOIN D'AIDE