Insérer des données dans une feuille
Résolu/Fermé
A voir également:
- Insérer des données dans une feuille
- Insérer une vidéo dans powerpoint - Guide
- Insérer signature word - Guide
- Insérer liste déroulante excel - Guide
- Comment insérer une table des matières dans word - Guide
- Comment supprimer une feuille sur word - Guide
4 réponses
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
524
23 oct. 2016 à 08:41
23 oct. 2016 à 08:41
Bonjour,
Voici un exemple de code avec une recherche de la valeur de A10 dans la colonne A de la feuille2 "BD", puis un copier/coller spécial valeurs de la ligne 35 .
Le bouton de commande doit être placé dans la feuille "Formulaire".
A+
Voici un exemple de code avec une recherche de la valeur de A10 dans la colonne A de la feuille2 "BD", puis un copier/coller spécial valeurs de la ligne 35 .
Le bouton de commande doit être placé dans la feuille "Formulaire".
Private Sub CommandButton1_Click()
Dim C As Range
With Worksheets("BD")
Set C = .Columns("A").Find(Range("A10").Value, , xlValues, xlWhole)
If Not C Is Nothing Then
Rows("35:35").Copy
.Range("A14").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
End With
End Sub
A+
Bonjour,
merci gyrus pour votre réponse
le code marche bien,mais la ligne copier se place toujour sur A14. ce que je veux c'est que la ligne copiée doit écraser la ligne de la feuille "BD" qui contient la même valeur de la cellule A10 de la feuille "formulaire" .
merci gyrus pour votre réponse
le code marche bien,mais la ligne copier se place toujour sur A14. ce que je veux c'est que la ligne copiée doit écraser la ligne de la feuille "BD" qui contient la même valeur de la cellule A10 de la feuille "formulaire" .
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
524
24 oct. 2016 à 11:37
24 oct. 2016 à 11:37
Bonjour,
Oui, effectivement ....
Il faut effectuer la modification suivante :
Oui, effectivement ....
Il faut effectuer la modification suivante :
If Not C Is Nothing Then
Rows("35:35").Copy
C.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If