Macro copier coller suivant la valeur d'une cellule

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Macro copier coller suivant la valeur d'une cellule

lilox77

Bonjour à tous,
étant très novice en VBA, je viens vous demander votre aide pour une macro, qui je pense n'est pas du tout compliquée !
Pour vous expliquer : je dispose d'une feuille excel avec en colonne A des paramètres pour le Solver, et en colonne B un texte (OK) si le paramètre correspondant va me servir.
L'objectif est de faire une macro, qui dans va chercher dans la colonne B entre les lignes 1 à ... (34 par exemple) si la valeur est "OK" ou si la cellule est vide.
Si la cellule est "OK" (par exemple B5 = OK), se décaler sur la colonne A (en A5), copier la cellule, et aller la coller (en collage spécial) dans la colonne C (en C5), puis continuer son chemin dans la colonne B jusqu'en 34. En cas de cellule vide, pas de copie.
Je ne peux malheureusement pas utiliser une simple formule, car les cellules en colonne A sont des paramètres pour le solveur, ce qui fait que je n'arrive pas à récupérer le paramètre, mais seulement un "VRAI".

En vous remerciant par avance.
Lilian

Publicité

Marc L

Bonjour, bonjour !

Commencer par lire les règles de ce forum !

Si ce n'est pas du tout compliqué, un novice peut justement entreprendre le code !
Ne pas oublier l'Enregistreur de macros, un précieux outil notamment pour un novice …

Comme le VBA ne lit pas mieux qu'une formule, il est conseillé de favoriser un maximum les formules au code.
Un code pur VBA est souvent bien moins efficace et plus lent qu'un autre utilisant les fonctionnalités d'Excel !

nicolasvba

Salut ! VBA bien ?

Voici une solution !

Code :

Sub test()
'Déclaration d'une variable entière pour stocker le nombre de ligne de ton tableau
Dim NombreLigne As Integer
'Sélection de la feuille sur laquelle se trouve les données à traiter, ici par exemple Feuil1
Sheets("Feuil1" ).Select
'Commence par supprimer toutes les valeurs de la colonne C
Columns("C:C" ).ClearContents
'Enregistrement du nombre de ligne de ton tableau
NombreLigne = InputBox("Nombre de ligne à traiter ?" )
'Boucle qui va de 1 au nombre total de ligne
For i = 1 To NombreLigne
'Si la cellule de la ligne i et de la seconde colonne (B) est égale à OK, alors
If Cells(i, 2) = "OK" Then
'La valeur de la cellule de la ligne i et de la colonne 1 (A) est recopié sur la même ligne i en colonne 3 (C)
Cells(i, 3).Value = Cells(i, 1).Value
'Fin de la condition If
End If
'Fin de la boucle For
Next
End Sub

Bonne journée !

Message édité par nicolasvba le 14-08-2015 à 11:17:08

---------------
La cuillère n'existe pas

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Macro copier coller suivant la valeur d'une cellule

Sujets relatifs
[RESOLU] optimisation macro VBA	[SQL Server/Cobol] Maj colonne NULL ou valeur non NULL
bugg pivottables - macro graph croisé dynamique	[vbs] recup user name pr copier un fichier sur le bureau
Problème filtrage macro	Macro copier tableau avec plusieurs critères
Sélectionner une valeur dans un array multidimensionnel (+SQL & PDO)	macro pour copier coller lignes
Plus de sujets relatifs à : Macro copier coller suivant la valeur d'une cellule

Page générée en 0.042 secondes