Bonjours je cherche une macro pour copier et coller des données Résolu/Fermé

Question

Bonjour Je débute en VBA et ma question est la suivante J'ai fais un tableau sur excel 2010 qui fait des classements. celui-ci fonctionne tres bien mais j'aimerais ajouter une macro commande bouton pour copier des données du style AS integer dans cologne champ("b16:b316). puis les collées dans cologne champ(v16:ad16) selon condition pour chaque cologne et toujours sur la meme ligne de la cologne corespondante. une macro qui fera référence a ces conditions a chaque fois qu il y aura une action la copie se fera toujours dans le meme champ(" b16:b316") collées dans la cologne suivante. en tout il y a 4 colognes a remplir. Colgne ou collée les données selon condition cologne 1 est la cologne champ(V) cologne 2 est la cologne champ(X) cologne 3 est la cologne champ(Z) cologne 4 est la cologne champ(AB) Exemple: si(et(b16<>"";v16="");b16 ' coller la valeur de b16 dans v16 si(et(b16<>"";v16<>"";x16="");b16 ' coller la valeur de b16 dans x16 si(et(b16<>"";v16<>"";x16<>"";z16="");b16 ' coller la valeur de b16 dans Z16 si(et(b16<>"";v16<>"";x16<>"";z16<>"";ab16="");b16 ' coller la valeur de b16 dans v16 Pouvez vous m'aider . clik commande bouton vba. nb. je veux coller seulement les valeurs sans la formule. Merci a celui qui voudra m'aider.

michel_m · Answer

Bonjour

Essaies cette macro
Option Explicit'----Private Sub CommandButton1_Click()Dim Nbre As Integer, Lig As Integer, Cptr as IntegerDim Col As Byte'initialisationsWith Application     .ScreenUpdating = False     Nbre = .CountIf(Range("B16:B316"), "*")End With'recherche colonne vide sur ligne col B <>""Lig = 15For Cptr = 1 To NbreLig = Columns("B").Find("*", Cells(Lig, "B"), xlValues).Row     For Col = 22 To 28 Step 2          If IsEmpty(Cells(Lig, Col)) Then               Cells(Lig, Col) = Cells(Lig, "B")               Exit For          End If     Next ColNext CptrEnd Sub 

Valable si ligne colonne B vide (estvide(B16)) et non résultat "" d'une formule

Mais tu n'as pas précisé ce que l'on faisait si les 4 colonnes de destination n'étaient pas vides...

 Michel

belfort-1 · Answer

Bonjour
Michel
Si tu penses que je me permet de m'amuser alors que tu me viens en aide.
c'est tout a fais le contraire. j'ai BCP de respect pour des citoyen comme toi qui mettent leur savoir faire au service des autres.

via le fichier exemple j'ai réussi a intégrer la macro. et fonctionne très bien. Mais qu'avec des valeur alphanumérique ou textuel. quand je met que des nombre elle ne marche pas car la colonne de copie et les colonne collées, se sont que des  valeur numérique. Et a chaque action il y aura que 4 valeurs  a copier dans (colonne b) qui devront être ensuite effacées puis recommencer .
qui veut dire a chaque action il y aura toujours 312 cellules vide dans colonne b et 4 cellule non vide a copier.

je te remercie encore une fois Michel car ton aide m'est très précieux.

belfort-1 · Answer

Merci BCP Michel 
Ta macro Marche très bien. Vraiment super
Je te remerci  d'avoir compris des le départ ce que je voulais.
c'est moi étant débutant en VBA avais du mal a l'intregré dans mon tableau

J'ai même refais la même chose pour remplir les cases entre deux par des donnée
différentes.
Je suis vraiment satisfais

Un Grand salut a toute l'équipe comment ca marche   et bonne continuation.

belfort-1 · Answer

bonjour
J'ai finalisé mon tableau
il me reste juste un petit détail a reglé
La colonne (b16:b316) de la feuil(VERIF-SCORE )  ou je dois faire la copie
est une colonne masqué.

(erreur dexécution'91':
variable objet ou objet variable de bloc with non definie)

Merci 
et bonne jourée.

Bonjours je cherche une macro pour copier et coller des données

4 réponses

Discussions similaires