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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Supprimer un bloc avec VBA

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Supprimer un bloc avec VBA

n°2019152
ilma
Posté le 26-08-2010 à 14:54:39  profilanswer
 

Bonjour à Tous,
 
Je galère en ce moment avec VBA ( débutante :( )
 
Je vous explique mon problème :
 
j'ai une feuille excel avec 4400 lignes et 44 colonnes divisé par bloc (100 blocs), chaque bloc à 43 lignes et 44 colonnes,  les blocs sont séparés par des lignes de 0.
Ce que je vais faire c'est un programme qui calcule la distance euclidienne pour chaque ligne, ensuite supprimer le bloc qui contient la ligne qui la plus petite distance.
 
Voilà mon programme :
 
 
 
 
For b = 1 To 100
   iStartRow(b) = (b - 1) * 44 + 1            'définir les blocs
   iEndRow(b) = (b - 1) * 44 + 44
     
           
        For i = iStartRow(b) To iEndRow(b)
             l = 0                                              'calculer la distance
             For j = 1 To 44
               l = l + Cells(i, j) * Cells(i,j)
             Next j
     
     
     d(i) = Sqr(l)
     
       
 a = d(1)
       
If d(i) < a Then
       a = d(i)                       'trouver la distance minimale
       End If
     
    Next i
     
Next b
 
 
mbs=100
 
For b = 1 To mbs
  For i = iStartRow(b) To iEndRow(b)
For j = 1 To 44
If d(i) = a Then
 Range(Cells(iStartRow(b), 1), Cells(iEndRow(b), 43)).Select      'supprimer le bloc ( c'est ce qui ne marche pas en fait, il supprime tous les blocs)
    Selection.Delete Shift:=xlToLeft
 
 
End If
 
Next j
 
Next i
mbs = mbs - 1
Next b
 
 
   
 
Merci pour votre aise ;)
 
 
 
 
 
 
 

mood
Publicité
Posté le 26-08-2010 à 14:54:39  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Supprimer un bloc avec VBA

 

Sujets relatifs
Supprimer un bloc avec VBADémarrer avec VBA (Finance de marché)
[VBA] Forcer un Debug incohérentErreur 1004 VBA
[VBA] Test de chaine de caractère sur une collectionTableau croisé dynamique VBA
Conversion de type c pour une utilisation de dll VBAVBA - Userform - Pb de superposition des images et des labels
Plus de sujets relatifs à : Supprimer un bloc avec VBA


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