Copie d'un nombre sur un code déjà existant
Résolu/Fermé
Coo76
-
9 juin 2015 à 09:15
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 9 juin 2015 à 10:21
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 9 juin 2015 à 10:21
A voir également:
- Copie d'un nombre sur un code déjà existant
- Copie cachée - Guide
- Code asci - Guide
- Consultez le code source de cette page. copiez la ligne indiquant aux moteurs de recherche de ne pas référencer la page. ✓ - Forum Référencement
- Envoyez ce mail à manon (manon@pixmail.org) en mettant en copie nina (nina@pixmail.org) : ✓ - Forum Loisirs / Divertissements
- Code 80072efe ✓ - Forum Windows
3 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
9 juin 2015 à 09:53
9 juin 2015 à 09:53
Bonjour,
si la valeur à gauche est non nul. Pour moi, dans votre code c'est la colonne de droite, mais c'est vous qui voyez.
Utilisez un deuxieme tableau pour memoriser les valeurs de cette colonne
si la valeur à gauche est non nul. Pour moi, dans votre code c'est la colonne de droite, mais c'est vous qui voyez.
Utilisez un deuxieme tableau pour memoriser les valeurs de cette colonne
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
Modifié par pijaku le 9/06/2015 à 10:14
Modifié par pijaku le 9/06/2015 à 10:14
Bonjour,
Salutations f894009.
Une autre solution consiste à utiliser un tableau à deux dimensions :
🎼 Cordialement,
Franck 🎶
Salutations f894009.
Une autre solution consiste à utiliser un tableau à deux dimensions :
Public Sub Kopie(co As Long)
Dim liFR As Long, lifinFR As Long, TC(), s As String, nbCod As Long, q As Long, lifinFC As Long
With Sheets(FR)
lifinFR = .Cells(Rows.Count, co).End(xlUp).Row
If lifinFR < lidebFR Then
MsgBox "pas de codes dans le tableau colonne " & co
Exit Sub
End If
nbCod = 0
For liFR = lidebFR To lifinFR
s = .Cells(liFR, co).Value
q = .Cells(liFR, co + 1)
If q <> 0 Then
nbCod = nbCod + 1
ReDim Preserve TC(1 To 2, 1 To nbCod)
's = s 'LIGNE INUTILE
TC(1, nbCod) = s
TC(2, nbCod) = q
End If
Next liFR
End With
With Sheets(FC)
lifinFC = .Cells(Rows.Count, coCodFC).End(xlUp).Row
.Cells(lifinFC + 1, coCodFC).Resize(nbCod, 2) = Application.Transpose(TC)
End With
End Sub
🎼 Cordialement,
Franck 🎶
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
9 juin 2015 à 10:21
9 juin 2015 à 10:21
Salut