Discussion :

[amd64]

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!!!

[SfJ5Rpw8]

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

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

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...

[amd64]

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

[SfJ5Rpw8]

tiens un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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:



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


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




Désolé d'insister...

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

    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...

[amd64]

magnifique!! it's alive! ALIVE!!

ç 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...

merci encore!!