Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1454 connectés 

  FORUM HardWare.fr
  Windows & Software
  Logiciels

  macro excell

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

macro excell

n°1456500
yvme
Posté le 18-02-2004 à 14:45:39  profilanswer
 

comment rédiger une macro excell qui fasse sauter une ligne dans mon tableau chaque fois que la valeur dans une colonne est différente d'un petit nombre de valeurs préétablies???

mood
Publicité
Posté le 18-02-2004 à 14:45:39  profilanswer
 

n°1456580
Z_cool
HFR profile rating:⭐⭐⭐⭐
Posté le 18-02-2004 à 15:40:50  profilanswer
 

Code :
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Application.EnableEvents = False
  3. Mypos = InStr(Target.Text, "toto" )
  4. Mypos = Mypos + InStr(Target.Text, "tutu" )
  5. Mypos = Mypos + InStr(Target.Text, "tata" )
  6. If Mypos > 0 Then
  7.    
  8.     Cells(ActiveCell.Row + 1, ActiveCell.Column).Activate
  9.    
  10.    
  11. End If
  12. Application.EnableEvents = True
  13. End Sub


 
 
avec les mot tutu, tata,... apres, il doit y avoir moyen de fair ca avec une liste defini sur une autre page si besoin est sans trop de dificulté


---------------
#mais-chut
n°1456583
Z_cool
HFR profile rating:⭐⭐⭐⭐
Posté le 18-02-2004 à 15:45:45  profilanswer
 

de meme kil est possible de definir une liste de mot differente par colone :
 
 
 

Code :
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Application.EnableEvents = False
  3. Select Case Target.Column
  4.    
  5. Case 1
  6. Mypos = InStr(Target.Text, "toto" )
  7. Mypos = Mypos + InStr(Target.Text, "tutu" )
  8. Mypos = Mypos + InStr(Target.Text, "tata" )
  9. If Mypos > 0 Then
  10.     cells(ActiveCell.Row + 1, ActiveCell.Column).Activate
  11. End If
  12. case 2
  13. Mypos = InStr(Target.Text, "papa" )
  14. Mypos = Mypos + InStr(Target.Text, "maman" )
  15. Mypos = Mypos + InStr(Target.Text, "tata" )
  16. If Mypos > 0 Then
  17.     cells(ActiveCell.Row + 1, ActiveCell.Column).Activate
  18. End If
  19. End Select
  20. Application.EnableEvents = True
  21. End Sub


Message édité par Z_cool le 19-02-2004 à 09:09:31

---------------
#mais-chut
n°1457674
Z_cool
HFR profile rating:⭐⭐⭐⭐
Posté le 19-02-2004 à 09:09:18  profilanswer
 

bon ba je suppose ke je serais jamais si c etait bien ca don tu avait besoin


---------------
#mais-chut

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Windows & Software
  Logiciels

  macro excell

 

Sujets relatifs
Recherche exemple module excel macro VBA[EXCEL] Comment utiliser une macro en tant que fonction d'excel ??
[NEED U] Comment hacker un fichier Excell ?[NEED U] Comment hacker un fichier Excell ?
Faire une macro Imprimer sous Excelexcell + dreamweaver
Qui peux m'aider pour une macro excel ?incorporer une macro sur la barre de tache d'excel
[Excell ] Macro annoncée à l'ouverture introuvable !Macro absente dans Excell...
Plus de sujets relatifs à : macro excell


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR