Discussion :

[Simon1504]

Bonjour à tous et bonne année,

Je suis sur un os depuis un petit moment alors je me tourne vers vous.
J'automatise des récupérations de données sur 300 "*.xls". J'ai des individus en ligne avec différentes variables d'informations sur ces individus en colonne. Mes deux première colonnes sont les noms et prénoms et malheureusement c'est les seules informations qui peuvent être mal renseignées par ex seulement le prénom en colonne B. Donc j'ai un soucis avec ce code:

Code :

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

1
2
3
4
5
6
Range("A12:H12").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    Sheets("COMPIL").Select
    Range("B1").Select
    ActiveSheet.Paste

(Je veux récupérer les infos correspondantes à chaque individus sur C:H avec leur nom et prénom en A:B)

Mon problème est que le Selection.End(xlDown) se base seulement sur la colonne A et cela est vraiment embêtant puisque le nombre d'individus varie selon les fichiers et dans certains seul les nom de famille des 2 premiers individus est renseigné (ex: celui des parents mais pas des enfants) donc il me manque les enfants dans le cas de mon ex. Dans certains cas, il n'y a pas de nom de famille pour un autre exemple.

J'aimerai savoir si il est possible et paramétrer ce Selection.End sur la colonne D qui elle est renseignée pour tous les membres de la famille sur tous les fichiers.

Merci pour votre aide (j'anticipe mais c'est toujours un plaisir de vous demander de l'aide) !

[joe.levrai]

Bonjour,

Si ta feuille est structurée comme une table (pas de colonnes utilisées pour autre chose que tes individus), utilises la propriété UsedRange de l'objet Worksheet.
Elle renvoie la plage utile de la feuille ... ainsi usedrange.rows.count te renvoie le nombre de lignes utilisées dans la feuille

Ou encore la propriété CurrentRegion de l'objet Range, qui te donnera la plage continue utilisée sur la feuille. Tu l'appliques sur D2 et tu obtiendras l'ensemble de tes données, auquel il conviendra de retirer la ligne de titres

[Simon1504]

Malheureusement il y a cette maudit colonne C qui est renseignée jusqu'à un point donné. Pour comprendre, c'est un questionnaire sous excel ou l'on remplie les informations en fonctions des individus présents (qui peut donc aller de individu A à individu R).

Une solution que je vois c'est de mettre en colonne A la colonne D bien renseignée mais c'est un peu du travail de cochon...

[joe.levrai]

Alors on peut "Ranger" des Range

Code :

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

Range(Range("A12"), Range("H" & Range("D13").End(xlDown).Row))

ici, on embarque ta ligne 12 qui est vide, si tu ne la veux pas, tu utilises A13 au lieu de A12

c'est pas très joli mais c'est le résultat

[Simon1504]

Il me met erreur de compilation, attendu: = ?

EDIT:

PARDON j'ai rajouté .Select (évidemment...) et ça tourne comme une horloge !!!!! Merci bcp c'est propre