Sujet Précédent Sujet Suivant

Code VBA

willow06 Messages postés 1 Date d'inscription dimanche 17 septembre 2023 Statut Membre Dernière intervention 18 septembre 2023 - Modifié le 17 sept. 2023 à 17:48
f894009 Messages postés 17187 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 1 mai 2024 - 18 sept. 2023 à 17:21

bonjour

je voudrais savoir si c'est possible de récupérer une valeur d'une cellule dans Excel pour identifier dans VBA ou coller l'information copier 

mon programme VBA la copie de B4 reste bien dans la colonne B mais la ligne change suivant ma rechercheV réaliser dans le fichier Excel 

merci d'avance 

Sub modifs1()
'
' modifs1 Macro
'

'
    Sheets("tableau").Select
    Rows("4:4").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("inscription").Select
    Range("E5").Select
    Selection.Copy
    Sheets("tableau").Select
    Range("b4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("inscription").Select
    Range("E7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("tableau").Select
    Range("C4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("inscription").Select
    Range("I7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("tableau").Select
    Range("D4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("inscription").Select
    Range("E9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("tableau").Select
    Range("E4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("inscription").Select
    Range("I9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("tableau").Select
    Range("F4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("inscription").Select
    Range("E11").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("tableau").Select
    Range("G4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("inscription").Select
    Range("E13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("tableau").Select
    Range("I4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("inscription").Select
    Range("I11").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("tableau").Select
    Range("H4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("inscription").Select
    Range("I13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("tableau").Select
    Range("J4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("inscription").Select
    Range("E15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Application.CutCopyMode = False
    Range("E15").Select
    Selection.Copy
    Sheets("tableau").Select
    Range("K4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("inscription").Select
    Range("E19").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("tableau").Select
    Range("L4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("inscription").Select
    Range("E20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("tableau").Select
    Range("M4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("inscription").Select
    Range("E15").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("E13").Select
    Selection.ClearContents
    Range("E11").Select
    Selection.ClearContents
    Range("E9").Select
    Selection.ClearContents
    Range("E7").Select
    Selection.ClearContents
    Range("I11").Select
    Selection.ClearContents
    Range("I13").Select
    Selection.ClearContents
End Sub
A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17187 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 1 mai 2024 1 704
18 sept. 2023 à 17:21

Bonjour,

Un fichier exemple serait mieux, car vous avez du faire le code avec l'enregistreur et c'est imbuvable

Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : http://cjoint.com
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
 
0

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...
midoou07 -
Camille -

13 réponses
Acces à snapchat temporairement désactivé
Anto_1234 -
M2 -

87 réponses
code d'activation GTA 5 steam
ylyes59 -
David -

6 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse