A voir également:
- For each vb.net
- For each vbnet - Meilleures réponses
- Vb for each - Meilleures réponses
- For each sql - Forum - SQL
- Probleme avec For each en VB6 ✓ - Forum - Visual Basic 6
- Vba Word 2013 - Boucle For Each sur répertoire ✓ - Forum - VBA Office (Excel, Word ...)
- Boucle For Each ✓ - Forum - VB.NET
- Checkbox (for each controls) caption value concatener réponses ✓ - Forum - Visual Basic 6
3 réponses
cnt
- Messages postés
- 219
- Date d'inscription
- lundi 21 novembre 2005
- Statut
- Membre
- Dernière intervention
- 20 décembre 2010
Salut
Comme le coller est bien réel, donc VRAI, la cellule en donne le résultat. Il suffit de ne pas écrire ==> cellule.Value = cellule.Offset(0, 1).PasteSpecial
Sub essai()
Dim plage As Range, cellule As Range
Set plage = Range("a6:a9")
For Each cellule In plage
If (cellule.Value = Range("a1")) Then
Range("b1").Copy
cellule.Offset(0, 1).PasteSpecial
End If
Next cellule
End Sub
CNTJC
Comme le coller est bien réel, donc VRAI, la cellule en donne le résultat. Il suffit de ne pas écrire ==> cellule.Value = cellule.Offset(0, 1).PasteSpecial
Sub essai()
Dim plage As Range, cellule As Range
Set plage = Range("a6:a9")
For Each cellule In plage
If (cellule.Value = Range("a1")) Then
Range("b1").Copy
cellule.Offset(0, 1).PasteSpecial
End If
Next cellule
End Sub
CNTJC
Renfield
- Messages postés
- 17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
en clair, PasteSpecial effectue le collage...
pas besoin de jouer avec une affectation
pas besoin de jouer avec une affectation
Vikings76
- Messages postés
- 5
- Date d'inscription
- mercredi 22 avril 2009
- Statut
- Membre
- Dernière intervention
- 24 avril 2009
Un grand merci pour cette réponse rapide et précise. Et bien sûr cela fonctionne parfaitement comme voulu.
Encore merci.
De plus je crois comprendre la subtilité de mon erreur de départ.
Vikings
Encore merci.
De plus je crois comprendre la subtilité de mon erreur de départ.
Vikings