Macro Numérotation de ligne
Fermé
nogelan
Messages postés
19
Date d'inscription
mercredi 16 mai 2007
Statut
Membre
Dernière intervention
5 août 2014
-
30 oct. 2013 à 11:35
nogelan Messages postés 19 Date d'inscription mercredi 16 mai 2007 Statut Membre Dernière intervention 5 août 2014 - 30 oct. 2013 à 13:33
nogelan Messages postés 19 Date d'inscription mercredi 16 mai 2007 Statut Membre Dernière intervention 5 août 2014 - 30 oct. 2013 à 13:33
A voir également:
- Macro Numérotation de ligne
- Partage de photos en ligne - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Site de vente en ligne particulier - Guide
- Aller à la ligne excel - Guide
- Macro word - Guide
6 réponses
ccm81
Messages postés
10907
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 janvier 2025
2 430
30 oct. 2013 à 11:47
30 oct. 2013 à 11:47
Salut Mike
Bien évidemment le numéro devra s'incrémenter de 1 à chaque fois.
je penserai plutôt à quelque chose comme ça
A7=SI(D7<>"";MAX($A$6:$A6)+1;"")
Cdlmt
Bien évidemment le numéro devra s'incrémenter de 1 à chaque fois.
je penserai plutôt à quelque chose comme ça
A7=SI(D7<>"";MAX($A$6:$A6)+1;"")
Cdlmt
ccm81
Messages postés
10907
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 janvier 2025
2 430
30 oct. 2013 à 13:21
30 oct. 2013 à 13:21
Une proposition dans le sens du post #3
Bonne suite
Const lideb = 7
Const coD = "D"
Const coA = "A"
Public Sub MAJcoA()
Dim lifin As Long, li As Long, n As Long
With ActiveSheet
lifin = .Range(coD & Rows.Count).End(xlUp).Row
n = 1
If .Range(coD & lideb) <> "" Then .Range(coA & lideb) = n: n = n + 1
For li = lideb + 1 To lifin
If .Range(coD & li) <> "" Then .Range(coA & li) = n: n = n + 1
Next li
End With
End Sub
Bonne suite
Mike-31
Messages postés
18357
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
6 février 2025
5 114
30 oct. 2013 à 11:39
30 oct. 2013 à 11:39
Bonjour,
pas très clair comme demande, mais regarde cette formule collée en A2 et incrémentée vers le bas
=SI(D2<>"";LIGNE();"")
pas très clair comme demande, mais regarde cette formule collée en A2 et incrémentée vers le bas
=SI(D2<>"";LIGNE();"")
nogelan
Messages postés
19
Date d'inscription
mercredi 16 mai 2007
Statut
Membre
Dernière intervention
5 août 2014
Modifié par nogelan le 30/10/2013 à 12:05
Modifié par nogelan le 30/10/2013 à 12:05
C'est tout à fait ça CCM81 mais je dois pouvoir l'intégrer dans une macro.
Cette macro fait des choses avant comme créer la colonne A
--
Cette macro fait des choses avant comme créer la colonne A
--
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Mike-31
Messages postés
18357
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
6 février 2025
5 114
30 oct. 2013 à 12:30
30 oct. 2013 à 12:30
Re,
Oui mais que fait cette macro, Nous ne sommes pas des devins, pour avoir des réponses précises il faut émettre des demandes précises, surtout en VBA ou on risque écrire des codes sans effets
Oui mais que fait cette macro, Nous ne sommes pas des devins, pour avoir des réponses précises il faut émettre des demandes précises, surtout en VBA ou on risque écrire des codes sans effets
nogelan
Messages postés
19
Date d'inscription
mercredi 16 mai 2007
Statut
Membre
Dernière intervention
5 août 2014
30 oct. 2013 à 13:33
30 oct. 2013 à 13:33
Merci beaucoup CCM81, ça fonctionne parfaitement.
--
--