Besion d'aide sur la copie en VB avec une condition SVP
Résolu/Fermé
shakti14789
Messages postés
5
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
22 février 2015
-
Modifié par Whismeril le 22/02/2015 à 06:19
shakti14789 Messages postés 5 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 22 février 2015 - 22 févr. 2015 à 15:22
shakti14789 Messages postés 5 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 22 février 2015 - 22 févr. 2015 à 15:22
A voir également:
- Besion d'aide sur la copie en VB avec une condition SVP
- Excel cellule couleur si condition texte - Guide
- Copie cachée - Guide
- Vb - Télécharger - Langages
- Copie écran samsung - Guide
- Super copie - Télécharger - Gestion de fichiers
3 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
22 févr. 2015 à 07:24
22 févr. 2015 à 07:24
Bonjour,
je veux que même les valeurs de la colonne I de la feuille 4 ce déplaceront, au même temps que les valeurs de la colonne J, à la colonne B de la feuille 5.
Que veux tu dire ?
je veux que même les valeurs de la colonne I de la feuille 4 ce déplaceront, au même temps que les valeurs de la colonne J, à la colonne B de la feuille 5.
Que veux tu dire ?
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
22 févr. 2015 à 14:15
22 févr. 2015 à 14:15
Bonjour,
Sub Tst3() Dim LastRowA As Long, cA As Range Dim i As Long Dim cB, val LastRowA = Feuil4.Range("J" & Rows.Count).End(xlUp).Row i = 1 Application.ScreenUpdating = False Feuil5.Columns("C:C").ClearContents For Each cA In Feuil4.Range("J1:J" & LastRowA) If cA.Value <> "" Then If IsNumeric(cA.Value) = True Then cB = cA.Address cB = Replace(cB, "$J", "$I") val = Range(cB).Value Feuil5.Cells(i, 3) = cA.Value Feuil5.Cells(i, 2) = val i = i + 1 End If End If Next cA Application.ScreenUpdating = True End Sub
shakti14789
Messages postés
5
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
22 février 2015
22 févr. 2015 à 14:39
22 févr. 2015 à 14:39
Bonjour, merci pour la réponse
ça n'a changé rien il me donne le même résulta.
ça n'a changé rien il me donne le même résulta.
shakti14789
Messages postés
5
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
22 février 2015
Modifié par shakti14789 le 22/02/2015 à 15:07
Modifié par shakti14789 le 22/02/2015 à 15:07
quand je test en débogage pas à pas je trouve que cA.Adress et cB change quand le test est True mais val = Range(cB).Value reste toujours vide.
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
22 févr. 2015 à 15:06
22 févr. 2015 à 15:06
Cela fonctionne chez moi. Il faut bien sur que tu sois positionné sur ta Feuille4.
essaie ceci si tu n'as pas trop de ligne:
essaie ceci si tu n'as pas trop de ligne:
Sub Tst3() Dim LastRowA As Long, cA As Range Dim i As Long Dim cB, val LastRowA = Feuil4.Range("J" & Rows.Count).End(xlUp).Row i = 1 Application.ScreenUpdating = False Feuil5.Columns("C:C").ClearContents For Each cA In Feuil4.Range("J1:J" & LastRowA) If cA.Value <> "" Then If IsNumeric(cA.Value) = True Then cB = cA.Address MsgBox cB cB = Replace(cB, "$J", "$I") MsgBox cB val = Range(cB).Value MsgBox val Feuil5.Cells(i, 3) = cA.Value Feuil5.Cells(i, 2) = val i = i + 1 End If End If Next cA Application.ScreenUpdating = True End Sub
shakti14789
Messages postés
5
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
22 février 2015
22 févr. 2015 à 15:22
22 févr. 2015 à 15:22
mille merci, tu avais raison je n'été pas bien positionner dans ma feuille, car j'ai pas fais attention au positionnement, maintenant les deux codes sont fonctionnels.
merci pour ton aide.
merci pour ton aide.
22 févr. 2015 à 13:46
je veux dire que lorsque le VB trouve la valeur de cA voulu lors du test, au lieu de copier seulement la cellule trouver, il copiera aussi la cellule de la colonne qui est juste accoté de la première cellule.
donc à la fin du programme j'aurai la cellule de la colonne testée et une autre cellule qui est à la même ligne de celle-la.
j'espère que mon problème sera bien claire. merci.