Une histoire de déplacement de cellules

Bonjour à tous,

J'ai besoin d'aide pour déplacer des cellules.

Lorsque dans la colonne E il y a le numéro 100, il faudrait que les cellules de droites (G,H), copie ou coupe (peu importe) dans les cellules A;B de la même ligne.

De la ligne 1 à 38 voilà ce que j'ai (sur plus de 1000 lignes dans le vrai cas)

De la ligne 40 à 77 ce que je voudrais avoir comme résultat (donc oui c'est facile à faire manuellement sur une trentaine de lignes mais avec + de 1000...).

Cordialement

4classeur1.xlsx (12.42 Ko)

Bonjour seb79rt ,

Voici un fichier à essayer:

7classeur1-5.xlsm (19.67 Ko)

Merci de ta réponse,

Cela fonctionne sur le modèle d'exemple que j'ai envoyé mais ça ne fonctionne pas sur mon fichier d'origine.

En jaune j'ai la ligne : tablo = Ws.Range("A1").CurrentRegion

et ça indique erreur d'éxécution '1004'

Je ne comprends pas pourquoi

2 possibilités :

  • Ta feuille ne se nomme pas " Feuil1"
  • Ton tableau ne commence pas en "A1"

J'ai fait attention à cela mais j'avais déjà modifié le nom de la feuille.

Cependant l'erreur a disparu mais maintenant j'ai une autre erreur en jaune :

tablo(i, 1) = tablo(i, 7)

Erreur d'éxécution '9'

Quand j'ouvre directement le fichier que tu m'as envoyé et que j'appuie sur le bouton ça fonctionne mais si je vais dans le VBA et que je lance, ça me fait cette erreur ci-dessus

Ton fichier doit être différent de celui que tu as envoyé en exemple.

Bonjour seb79rt, Florian53, le forum,

Une autre proposition avec un code plus basique...mais le code de Florian est à privilégier car traitement plus rapide,

Cordialement,

Rechercher des sujets similaires à "histoire deplacement"