macro couper coller

Version imprimable

22/05/2015, 08h02
momoxrace

macro couper coller

Bonjour

Je suis nouveau sur le forum et débutant en macro.

Je voudrai savoir comment faire en macro, rechercher, dans la colonne A, les cellules vides
si vide couper coller la valeur de la cellule B en A
et si cellule B vide couper coller cellule C en A

Merci par avance
22/05/2015, 08h43
Gado2600

Bonjour,

Il y a différentes méthodes :
- Soit tu fais une boucle qui parcourt chacune de tes lignes (simple et efficace), en utilisant du
for i = première ligne to dernière ligne
Condition si pour savoir quelle donnée prendre
- Soit tu mets une formule de type R1C1 dans une colonne à part, qui reprend ce que tu cherches à faire. Cette formule sera ensuite copier-coller en valeur dans ta colonne A.
En utilisant une range pour écrire une formule comme ceci : rng.formulaR1C1

Les deux solutions prennent, grosso modo, 5 à 10 lignes de code chacune, normalement.

Si tu as du mal avec le VBA, tu as les tutoriels et l'enregistreur de macro sur Excel pour t'aiguiller.

Cordialement,

J'ai trouver ceci, sauf qu'il fait le contraire, il coupe et colle quand il a une valeur en A

Ou est mon erreur?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro1()
x = [A65536].End(3).Row
Set MaPlage = Range("A1:A" & x)
For Each Cel In MaPlage 'pour toutes les cellules de la plage
    If Cel.Value = "" Then 'si elle est vide alors
    Range("B" & x).Select
    Selection.Cut
    Range("A" & x).Select
    ActiveSheet.Paste
    End If
Next
End Sub

Il y a mieux comme code et plus fiable, en fait :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim i as long
 
dim excelWKSheet as worksheet
set excelwksheet = thisworkbook.sheets("NomSheet")
 
for i = 1 to excelwksheet.range("A65536").end(xlUp).row
     if excelwksheet.range("A" & i) ="" then
            excelwksheet.range("A" & i) = excelwksheet.range("B" & i)
            if excelwksheet.range("A" & i) = "" then
                  excelwksheet.range("A" & i) = excelwksheet.range("C" & i)
                  excelwksheet.range("C" & i)=""
            else
                   excelwksheet.range("B" & i)= ""
            end if
next

C'est algo parmi d'autres.
Perso, je préférerais avec des tableaux numériques (plus rapide)

Cordialement,

Code non testé

22/05/2015, 17h26
momoxrace

merci cela fonctionne