Macro pour connaître le plus grand chiffre

Résolu
sabrinaluv Messages postés 109 Statut Membre -  
sabrinaluv Messages postés 109 Statut Membre -
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:

5 réponses

pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 768
 
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...
0
sabrinaluv Messages postés 109 Statut Membre 50
 
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 ?
0
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 768
 
Excuse moi j'ai saisit trop vite, sans vraiment faire attention... Supprime le "="
MsgBox (Application.WorksheetFunction.Max(Columns("E:E")) + 1)
0
sabrinaluv Messages postés 109 Statut Membre 50
 
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!
0
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 768
 
oui : par exemple si en E1 tu souhaitres afficher le max de la colonne E + 1 :

[E1] = Application.WorksheetFunction.Max(Columns("E:E")) + 1
0
sabrinaluv Messages postés 109 Statut Membre 50
 
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!
0
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 768
 
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.
0

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

Posez votre question
sabrinaluv Messages postés 109 Statut Membre 50
 
Merci beaucoup, ca marche! Bonne journée!
0