Discussion :

[JohnNC115]

Bonjour à tous
Débutant en VBA et nouveau sur ce forum, je sollicite votre aide

Dans le cadre d'un programme, je veux importer les valeurs de certaines cellules se trouvant sur différentes feuilles du classeur dans une même feuille.

Le souci se pose après la réinitialisation de cette feuille: avant de faire l'importation, je supprime toutes les lignes non vides et lors de mon test, le programme ne prend en compte que les 4 premières lignes.

Merci d'avance de votre aide

Cordialement

voici mon code:

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Option explicit
'déclaration des variables
Dim i As Integer, j As Integer, k As Integer, nbf As Integer
Dim nomAPS As String, codeAPS As String
 
Private Sub CommandButton1_Click()
 
'initialisation de la fiche
For i = Range("A65536").End(xlUp).Row To 5 Step -1
    If Range("A" & i).Value <> "" Then
    Range("A" & i).EntireRow.Delete
    End If
Next i
 
'test et création de la fiche
nbf = ThisWorkbook.Sheets.Count
 
For i = nbf To 11 Step -1
    For j = ThisWorkbook.Sheets(i).Range("H65536").End(xlUp).Row To 4 Step -1
        nomAPS = ThisWorkbook.Sheets(i).Range("H" & j).Value
        codeAPS = ThisWorkbook.Sheets(i).Range("F" & j).Value
 
        For k = Range("A65536").End(xlUp).Row To 5 Step -1 '<-- le soucis vient de là !!! car il m'indique que k = 4 or je veux tester toutes les lignes
 
         If codeAPS <> Range("A" & k).Value And Range("A" & k - 1).Value <> "" Then
            Range("B" & k).Value = nomAPS
            Range("A" & k).Value = codeAPS
            End If
        Next k
    Next j
Next i
 
End Sub

[rvtoulon]

Bonjour,
ici k = forcément 4 car avant tu effaces toutes les lignes non vides :

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
 
'initialisation de la fiche
For i = Range("A65536").End(xlUp).Row To 5 Step -1
If Range("A" & i).Value <> "" Then
Range("A" & i).EntireRow.Delete
End If
Next i

donc a la fin de cette boucle la seule cellule pleine de la colonne A est A4, ce qui fait que :

Code :

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

For k = Range("A65536").End(xlUp).Row To 5 Step -1 'le soucis vient de là !!! car il m'indique que k = 4 or je veux tester toutes les lignes

donc cette ligne de code donne a k le numero de la derniere cellule utilisée de la colonne A c'est a dire 4

[Qwazerty]

Salut et bienvenu
A mon avis tu te mélanges les pinceaux entre tes différentes feuilles.
Tu devrais nommer explicitement sur quel classeur et feuille tu travailles

Dans ton code tu as des thisworkbook. et d'autre fois tu ne le précises pas, pareil pour sheets(x). Dans un première temps, même si ça charge ton code, défini comme il faut sur quelle feuille tu travailles a chaque fois, viendra ensuite la simplification de l'écriture.

Ps: lorsque tu postes du code, pense a utiliser la balise code (sélectionne ton code + bouton # dans le menu de l’éditeur)

++
Qwaz

[JohnNC115]

Tout d'abord merci de vos réponses rapides (ça fait plaisir de ne pas se sentir abandonné ^^)

pourriez m'éclairer sur ce que renvoie la fonction range.end(xlup).row ?

@ rvtoulon
Merci pour ton explication, mais aurais tu une solution pour effacer toutes les données et mise en page de cellules avant d'importer les nouvelles données ?

@Qwazerty
Merci pour tes remarques.
Je vais essayer de m'organiser un peu mieux pour que cela devienne plus comprehensible :p
Pour ce qui est de la simplification, je ne suis pas sûr d'y arriver tout de suite, n'étant absolument pas spécialisé dans la programmation et n'étant que ponctuellement sur mon projet.

[Qwazerty]

Alors le code

Code :

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

range("Dernière cellule de la colonne A").end(xlup).row

te renvoie le numéro de la dernière cellule non vide de ta colonne A (la colonne dépend bien sur de ce que tu mets dans range(...) )
Pour avoir ce genre d'information n’hésite pas a utiliser l'aide Excel, même si je trouve que la version 2007 est moins bien qu'avant, tu y trouveras des infos.

Pour ce qui est de simplifier le code, ça n'est pas un soucis, fait d'abords un code qui fonctionne, nous t'aiderons a le simplifier (enfin si tu sais simplifier certaines écritures fait le bien sur ^^)

Pour une aide plus efficace, un petit classeur exemple serait bien
++
Qwaz

[JohnNC115]

Merci encore pour ta rapidité de réponse

je joins le classeur qui me pose tant de soucis

à l'ouverture il faut répondre non à la userform car elle appelle d'autres classeurs ^^

ensuite c'est le code de la feuille materiel qu'il faut que j'adapte

en fait ce que je veux faire c'est importer les noms et code des APS qui se trouve dans mes fiches de zones (feuilles à partir de la 11 inclue) en évitant les doublons et les cases vides