Cree1mac qui me reporte les referances1donnee precise dans 1tabl
Fermé
AK.Benachk
Messages postés
1
Date d'inscription
samedi 3 mai 2014
Statut
Membre
Dernière intervention
3 mai 2014
-
3 mai 2014 à 12:24
via55 Messages postés 14473 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 13 septembre 2024 - 3 mai 2014 à 13:16
via55 Messages postés 14473 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 13 septembre 2024 - 3 mai 2014 à 13:16
A voir également:
- Cree1mac qui me reporte les referances1donnee precise dans 1tabl
- Les données fournies dans le fichier à télécharger peuvent être synthétisées par le tableau récapitulatif suivant. dans le fichier, générez ce tableau automatiquement (tableau croisé dynamique ou table de pilote) à partir des 4 premières colonnes. cinq valeurs manquent dans le tableau suivant. retrouvez-les dans votre tableau puis reportez-les, arrondies à l’entier le plus proche, dans la zone de réponse. ✓ - Forum Excel
- Les données fournies dans le fichier à télécharger peuvent être synthétisées par le tableau récapitulatif ci-dessous. dans le fichier, générez ce tableau automatiquement (tableau croisé dynamique ou table de pilote) à partir des quatre premières colonnes. il manque 5 valeurs dans le tableau ci-dessous. retrouvez-les dans votre tableau, puis reportez-les arrondies à l’entier le plus proche. ✓ - Forum Excel
- Une fonction de reconnaissance interne a reporté une erreur - Forum Mail
- Comment imprimer une photo dimension précise ✓ - Forum Bureautique
- Samia, kevin et jason ont gardé la trace de leurs ventes quotidiennes du mois de juillet 2016. dans la feuille bilan, il manque les résultats de jason. insérez une colonne entre samia et kevin et reportez-y les résultats de jason. quel mot secret apparait en f2 ? - Forum Excel
1 réponse
via55
Messages postés
14473
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
13 septembre 2024
2 728
Modifié par via55 le 3/05/2014 à 13:17
Modifié par via55 le 3/05/2014 à 13:17
Bonjour
Sub transfert()
Dim DernLigne As Long
lg=2 'n° de la première ligne où recopier les données, à adapter
prem="Feuil1" ' à adapter avec nom 1ere feuille
deux="Feuil2" ' à adapter avec nom 2eme feuille
DernLigne = Sheets(prem).Range("C" & Rows.Count).End(xlUp).Row
For n =1 to DernLigne
if sheets(prem).range("D" & n).value=100250 then
sheets(deux).range("B" & lg).value=sheets(prem).range("C" & n).value
lg=lg+1
end if
next n
End sub
Cdlmnt
"L'imagination est plus importante que le savoir." A. Einstein
Sub transfert()
Dim DernLigne As Long
lg=2 'n° de la première ligne où recopier les données, à adapter
prem="Feuil1" ' à adapter avec nom 1ere feuille
deux="Feuil2" ' à adapter avec nom 2eme feuille
DernLigne = Sheets(prem).Range("C" & Rows.Count).End(xlUp).Row
For n =1 to DernLigne
if sheets(prem).range("D" & n).value=100250 then
sheets(deux).range("B" & lg).value=sheets(prem).range("C" & n).value
lg=lg+1
end if
next n
End sub
Cdlmnt
"L'imagination est plus importante que le savoir." A. Einstein