cs_nanie13
Messages postés25Date d'inscriptionmercredi 28 février 2007StatutMembreDernière intervention26 décembre 2007
-
29 juil. 2007 à 23:20
JM247L
Messages postés443Date d'inscriptionmardi 27 mars 2007StatutMembreDernière intervention 1 mars 2011
-
31 juil. 2007 à 10:07
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
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201823 30 juil. 2007 à 11:46
Si je me fie à ce que j'en comprends ...
Dim NumeroLigne As Long
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
JM247L
Messages postés443Date d'inscriptionmardi 27 mars 2007StatutMembreDernière intervention 1 mars 20112 30 juil. 2007 à 12:10
Salut MPI
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
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201823 31 juil. 2007 à 03:36
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.
MPi
Vous n’avez pas trouvé la réponse que vous recherchez ?
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.