Insert picture in next cell in row

Signaler
-
Messages postés
14757
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
14 janvier 2021
-
Bonjour a tous,

J'ai un fichier (base de donner) qui serra remplie part les utilisateur grace a un userform.
voici mon code.

Private Sub cmdOK_Click()

ActiveWorkbook.Sheets("Data").Activate
Range("A3").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If

Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = cboPurchaseAct.Value
*ActiveCell.Offset (0, 1) = insert picter....????
ActiveCell.Offset(0, 2) = txtPurchaseItem.Value
ActiveCell.Offset(0, 3) = txtWhsSerial.Value
ActiveCell.Offset(0, 4) = cboStrat.Value
ActiveCell.Offset(0, 5) = txtPurchaseDesc.Value
ActiveCell.Offset(0, 6) = txtPurchaseDim.Value
ActiveCell.Offset(0, 7) = txtAnnual.Value
ActiveCell.Offset(0, 10) = cboUI.Value
ActiveCell.Offset(0, 11) = txtPurchaseUnit.Value
ActiveCell.Offset(0, 12) = txtProductionItem.Value
ActiveCell.Offset(0, 13) = txtProductionDesc.Value
ActiveCell.Offset(0, 14) = txtProductionLP.Value
ActiveCell.Offset(0, 15) = txtProductionProg.Value
ActiveCell.Offset(0, 16) = txtSupplier.Value
ActiveCell.Offset(0, 17) = txtLeadTime.Value
ActiveCell.Offset(0, 18) = txtContactperson.Value
ActiveCell.Offset(0, 19) = txtTel.Value
ActiveCell.Offset(0, 20) = txtComment.Value

Range("A3").Select
Unload Me
End Sub

J'aimerai que dans le offset(0, 1) - donc Cell "B" qu'il y ai une insertiond'une image choisi part l'utilisateur et que l'image sois renommer comme image + cell $B$....(nr de cell B).

Je vous remercie d'avance.

1 réponse

Messages postés
14757
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
14 janvier 2021
151
Bonjour,

Essayes d'enregistrer une macro pour voir le code généré.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site