J’ai crée un facturier sous excel, mais j’aimerais le simplifié.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /??>
Quelqu’un pourrait t il m’aider s’il vous plait
Classeur 1
Feuille 1 = boutons des macros
Feuille 2 = base de données
Classeur 2
(Liaison entre les 2 classeurs)
Feuille 1 = Facture 1 page
Feuille 2 = Facture 2 pages
Feuille 3 = Facture 3 pages
Feuille 4 = Facture 4 pages
Pour l'instant, je suis obligé de déclarer :
MaValeur = Nombre de page
Est il possible par macro activer la feuille souhaitée, sans passer par MaValeur
Exemple :
<li class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt">
Si ligne de 1 à 20 non vide du classeur 1, activer feuille 1 du classeur 2
</li>
<li class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt">
Si ligne de 1 à 30 non vide du classeur 1, activer feuille 2 du classeur 2
</li>
<li class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt">
Si ligne de 1 à 40 non vide du classeur 1, activer feuille 3 du classeur 2
</li>
<li class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt">
Si ligne de 1 à 50 non vide du classeur 1, activer feuille 4 du classeur 2
Range("A1").End(xlDown).Select 'recherche la dernière ligne de données en A
NumeroLigne = ActiveCell.Row
'traitement selon le numéro de cette ligne
Select Case NumeroLigne
Case Is <= 20
'ton code qui pourrait être Workbooks("MonClasseur").Sheets("Feuil1").Activate
Case Is > 20, Is <= 30
'ton code
Case Is > 30, Is <= 40
'ton code
Case Else
'code pour ce qui n'est pas géré
End Select
Dim NumeroLigne As Long
NumeroLigne = Range("A1").End(xlDown).row ' on peut regrouper
'traitement selon le numéro de cette ligne
Select Case NumeroLigne
Case Is <= 20
'ton code qui pourrait être Workbooks("MonClasseur").Sheets("Feuil1").Activate
Case Is <= 30 ' S'il n'est pas > 20 il n'arrivera pas à ce niveau
'ton code
Case <= 40
'ton code
Case Else
'code pour ce qui n'est pas géré
End Select
T'as bien raison JML
Pour le numéro de ligne, je n'utilise même pas cette méthode... Je ne sais même plus où je suis allé la chercher, mais bon... tu as tout à fait raison.
Et pour le Select Case, ben là je n'y avais pas pensé... bien vu.
Actuellement, il me faut indiquer le nombre de pages pour insérer la bonne facture.
Serait-il possible, par macro, que selon le nombre de cellules « non vide » dans <?xml:namespace prefix st1 ns "urn:schemas-microsoft-com:office:smarttags" /??><st1:personname w:st="on" productid="la colonne B">la colonne B</st1:personname>, insérer la bonne facture.