A voir également:
- Formule excel multiplier deux colonnes
- Formule moyenne excel plusieurs colonnes - Guide
- Formule somme excel colonne - Guide
- Formule excel si et - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Déplacer une colonne excel - Guide
2 réponses
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
28 juil. 2016 à 15:21
28 juil. 2016 à 15:21
Bonjour Nathalihid, bonjour le forum,
Essaie comme ça :
Essaie comme ça :
Dim DL As Byte DL = Sheets(1).Range("A" & Application.Rows.Count).End(xlUp).Row For I = 2 to DL Sheets(2).Cells(I + 3, 3).Value Sheets(1).Cells(I, 1)*Sheets(2).Cells(I + 3, 2) Next I
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
28 juil. 2016 à 19:01
28 juil. 2016 à 19:01
Re,
Par rapport à ton exemple, j'ai déclaré la variable DL de type Byte (donc limitée à la ligne 265). Si la dernière ligne de la colonne A dépasse la ligne 265 il faut la déclarer de type Integer en remplaçant la ligne :
par
et si tu dépasses la ligne 327 767 alors déclare la de type Long avec :
Mais, pour éviter de perdre du temps, prend l'habitude de joindre un fichier exemple ou à détailler un peu plus tes explications...
Par rapport à ton exemple, j'ai déclaré la variable DL de type Byte (donc limitée à la ligne 265). Si la dernière ligne de la colonne A dépasse la ligne 265 il faut la déclarer de type Integer en remplaçant la ligne :
Dim DL As Byte
par
Dim DL As Integer
et si tu dépasses la ligne 327 767 alors déclare la de type Long avec :
Dim DL As Long
Mais, pour éviter de perdre du temps, prend l'habitude de joindre un fichier exemple ou à détailler un peu plus tes explications...
28 juil. 2016 à 18:11
j'ai essayée votre code,mais lors de la compilation,je retrouve l'erreur suivante au niveau de la ligne 2:
DL = Sheets(1).Range("A" & Application.Rows.Count).End(xlUp).Row 'erreur incompatibilité de type
j'ai essayée de remplacer cette ligne par la ligne suivante,mais ça marche pas:
DL = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
qu'est ce que je peux faire?
cordialement,