VBA Recherche et déplacement de cellule

Question

Bonjour, 

J'ai un tableau dans lequel la colonne C correspond à des débits et crédits bancaires.
J'ai donc des cellule avec des "-" et d'autres sans (type "-598.56" / "598.56").
L'objectif serait de déplacer les cellules ne contenant pas des "-" dans la colonne D, toujours sur la même ligne, pour une exportation vers un logiciel de comptabilité.
J'ai fait quelques recherches mais je ne trouve pas comment déplacer ces cellules sur la même ligne...
Si vous avez quelques tuyaux, je suis preneur! :)

ucfoutu · Answer

Bonjour,
on ne déplace pas une cellule, mais son contenu, que l'on affecte à une autre cellule.
Ouvre ton aide VBA sur le mot Offset.
(Range.Offset, propriété)

jordane45 · Answer

Bonjour, Teste la macro suivante : Sub TransfertColonneD() 'Plage contenant les montants à traiter Dim MaColonneC As Range Set MaColonneC = Range(\"C2:C100\") 'Boucle sur la plage à traiter For Each cell In MaColonneC 'Test si ne commence pas par un signe '-' et n'est pas vide If Left(cell.Value, 1) <> \"-\" And cell.Value <> \"\" Then 'Déplacement de la valeur (couper/coller) cell.Select Selection.Cut (cell.Offset(rowOffset:=0, columnOffset:=1)) End If Next End Sub Nb: Pour le "déplacement" j'ai utilisé le Couper/coller.

VBA Recherche et déplacement de cellule

2 réponses

Votre réponse

Discussions similaires