Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2278 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°2019150
ilma
Posté le 26-08-2010 à 14:52:51  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:52:51  profilanswer
 


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

  Supprimer un bloc avec VBA

 

Sujets relatifs
Démarrer avec VBA (Finance de marché)[VBA] Forcer un Debug incohérent
Erreur 1004 VBA[VBA] Test de chaine de caractère sur une collection
Tableau croisé dynamique VBAConversion de type c pour une utilisation de dll VBA
VBA - Userform - Pb de superposition des images et des labelssupprimer tous espaces suivi par un ; dans un fichier
[VBA/Excel] - Envoyer une selection variable dans une sous fonction ?WORD VB Comment supprimer des liaisons dans l'en-tête?
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