[VBA-E] Boucle pour supression des dernieres cellules

Version imprimable

04/05/2006, 13h45
amd64

[VBA-E] Boucle pour supression des dernieres cellules

Bonjour à tous : je m'explique.

Je voudrais sur chaque ligne (ces lignes avec des cellules contenant des données) suprimmer le nombre de dernières cellules égal au nombre contenu sur la première cellule.

exemple :

Si sur la première cellule de la colonne A on a le nombre 14, alors supprimer les 14 dernières cellules sur la ligne; de même si on a 2 sur la deuxième cellule de la colonne A, alors supprimer les 2 dernières cellules.

j'ai été assez clair?? Merci de vos réponses!!!:mouarf:
04/05/2006, 13h47
SfJ5Rpw8

et tu ve faire cela ou ? en VB6..? rajoute un tag à ton titre [VBA-E] ..!

Citation:

Envoyé par amd64

j'ai été assez clair?? Merci de vos réponses!!!:mouarf:

quand tu dis supprimer on fait quoi on décale les cellules vers la gauche...? ou on efface leur contenu ... faut-t'il aussi effacer/supprimer la cellule de gauche.. A1...
04/05/2006, 13h52
amd64

juste supprimer leur contenu mais pas la premiere cellule de la ligne

tiens un truc du genre :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Sub EffaceNb()
 Dim p As Range ' plage parcourue
 Dim r As Range ' ligne de la plage
 Set p = ActiveSheet.Range("A1").CurrentRegion
 Dim iNb As Integer 'Nombre de ligne à effacer..
 For Each r In p.Rows 'Parcours les différentes lignes
  iNb = r.Cells(1).Value
  Range(r.Cells(1, 2), r.Cells(1, 2 + iNb)).ClearContents
Next
End Sub

04/05/2006, 14h42
amd64

c'est ça! mais il faudrait que ça le fasse dans l'autre sens, c'est à dire qu'il faudrait que les cellules soit supprimées de la droite vers la gauche.

à l'origine:
http://kbbcperso.free.fr/begin.JPG

ce que je voudrait:
http://kbbcperso.free.fr/end.JPG

ta proposition:
http://kbbcperso.free.fr/prposition.JPG

Désolé d'insister...:aie:

as tu essayer de comprendre mon code précédent ? la solution n'été pas loin !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub EffaceNb()
 Dim p As Range ' plage parcourue
 Dim r As Range ' ligne de la plage
 Set p = ActiveSheet.Range("A1").CurrentRegion
 Dim iNb As Integer 'Nombre de ligne à effacer..
 Dim iMax As Integer 'Nombre de colonne dans sélection
 iMax = p.Columns.Count
 For Each r In p.Rows 'Parcours les différentes lignes
  iNb = r.Cells(1).Value
  If iMax > iNb + 1 Then
   Range(r.Cells(1, iMax - iNb), r.Cells(1, iMax)).ClearContents
   End If
Next
End Sub

04/05/2006, 15h21
amd64
peux-tu m'expliquer ce qu'il se passe ici :
(car im supprime ma dernière ligne et efface le contenu de deux cellules au lieu d'une sur la première ligne)
Code:

1 2 3 If iMax > iNb + 1 Then Range(r.Cells(1, iMax - iNb), r.Cells(1, iMax)).ClearContents End If
04/05/2006, 16h37
SfJ5Rpw8

Citation:

Envoyé par amd64

peux-tu m'expliquer ce qu'il se passe ici :
(car im supprime ma dernière ligne et efface le contenu de deux cellules au lieu d'une sur la première ligne)

If iMax > iNb + 1 Then
Range(r.Cells(1, iMax - iNb), r.Cells(1, iMax)).ClearContents
End If

iMax et le nombre de colonne de la plage sélectionnée ( pour connaitre la plage sélection, ici current region , place toi sur la cellule A1 puis CTRL * )
iNb est la valeur contenu dans cellule précédente.. en fait il doit falloir

ensuite par l'instruction Range je définie une plage partant de la cellule

r.Cells(1,iMAx-iNb) .. cellule sur ligne parcouru à iNb Cellule de la cellule de droite..
Jusqu'a
r.cells(1,iMax) .. la derniére cellule de la ligne en cours dans la boucle For..

faire :

Code:

Range(r.Cells(1, iMax - iNb+1), r.Cells(1, iMax)).ClearContents

... PS: J'ai pas tester ... mais cela devrai être bon..dans le cas contraire on fera autremnt si iNb =1...
04/05/2006, 16h41
amd64

magnifique!! it's alive! ALIVE!!

8O ç a suffit avant qu'on me prenne pour je ne sais quoi.

Merci infiniment de ton aide et de tes explications!!! Etant débutant en VBA et devant apprendre vite (et donc comprendre vite), je risque de opasser souvent...:aie:

merci encore!!