VBA: calcul avec nombre de lignes variable Résolu/Fermé

Question

Bonjour, 

Je suis sur un document qui va me chercher un nombre variable d'informations en fonction de ce que l'utilisateur entre comme données au début.

L'extraction des données est faite mais je souhaite dorénavant effectuer des calculs et insertion de tableau ou autres.

Mes données sont sur 8 colonnes et sur un nombre de lignes variable, je cherche donc à définir le nombre de lignes afin d'effectuer un calcul sur la 9ème colonne,

Le code que j'ai 

DernLigne = ActiveSheet.Rows.Count

x = 75
y = 65
z = 67

If x < 91 Then
    For i = 2 To DernLigne
        Range(Chr(x), i).FormulaLocal = "=" & Chr(x - 8) & "," & i & "-" & Chr(x - 6) & "," & i & "-" & Chr(x - 3) & "," & i
        
    Next
    x = x + 9
Else
    If z < 91 Then
        For i = 2 To DernLigne
            Range(Chr(y) & Chr(z), i) = Range(Chr(y) & Chr(z - 8), i) - Range(Chr(y) & Chr(z - 6), i) - Range(Chr(y) & Chr(z - 3), i)
        Next
    z = z + 9
    Else
        y = y + 1
        z = z - 26
        For i = 2 To DernLigne
            Range(Chr(y) & Chr(z), i) = Range(Chr(y) & Chr(z - 8), i) - Range(Chr(y) & Chr(z - 6), i) - Range(Chr(y) & Chr(z - 3), i)
        Next
    End If
End If

J'ai essayé plusieurs méthodes de calcul pour DernLigne, aucune ne fonctionne pour le moment.

Si quelqu'un a une idée.

Merci d'avance


Configuration: Vaio duo 13" i5-4200U 4Go RAM DDR3
Windows 8.1(64bits)
Office 2013 Pro 
 
Merci !
NyectoD

Weapon EDGE · Accepted Answer

Bonjour,

Pour définir le nombre de ligne d'un Tableau Il faut que tu choisisses la colonne ou t'es sur  que la dernière cellule est représentatif de la longueur de ton tabelau.

Supposons que ce soit la colonne A

Tu tappes alors ce code.

Nb_Ligne = cells(rows.count,1).end(xlup).row

La variable Nb_Ligne renverra la position de la dernière cellule de la colonne A qui est pleine.

Manuellement, ça en revient à :
- Cliquer sur la dernière ligne de la feuille de la colonne A
A66635 pour les version Excel 2007 et inférieur ou A1048576 pour les version 2010 et suppérieur.
- Faire CTRL + Flèche du haut
- Et enfin aller récupéré le n° de la ligne de la cellule sélectionné.

NyectoD · Answer

Merci de ta réponse rapide.

J'avais déjà essayé quelque chose du genre mais la valeur que j'ai avec ton instruction est 1 ce qui pour une instruction de type For i = 2 to Valeur est gênant.

VBA: calcul avec nombre de lignes variable

2 réponses

Discussions similaires