Copier en valeurs une plage sous une autre plage
Résolu
Koalacid
Messages postés
70
Date d'inscription
Statut
Membre
Dernière intervention
-
Koalacid Messages postés 70 Date d'inscription Statut Membre Dernière intervention -
Koalacid Messages postés 70 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Copier en valeurs une plage sous une autre plage
- Comment copier une vidéo youtube - Guide
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image d’ours polaire sur une image de plage. retrouvez l'image originale de la plage. que cache l'ours polaire ? ✓ - Forum Google Chrome
- Dessin sms copier coller zizi ✓ - Forum Réseaux sociaux
- Sur la plage... - Forum Loisirs / Divertissements
- Manchots sur une image de plage ✓ - Forum Matériel & Système
3 réponses
Bonjour,
Voici ton code commenté et corrigé :
Voici ton code commenté et corrigé :
Public Sub BC1()
'variables
Dim i As Integer, derlig As Long
'ici on travaille dans la feuille Feuil1 => feuille concernée par le "copié"
With Sheets("feuil1")
'concerne les lignes de la Feuil1 de 1 à 10
For i = 1 To 10
'si, dans ces lignes F n'est pas vide, B = "" (égale rien), C = "" Alors
If Not IsEmpty(.Range("F" & i)) And .Range("B" & i).Value = "" And .Range("C" & i).Value = "" Then
'derlig est une variable qui va contenir le numéro de la première ligne vide de la feuil2 colonne A (là ou on va coller)
derlig = Sheets("feuil2").Range("A65536").End(xlUp).Row + 1
'Copié - collé
.Rows(i).Copy Sheets("feuil2").Range("A" & derlig) 'j'ai remplacé i par derlig (ou coller les données)
End If
Next i
End With
End Sub
Yes, merci!
Je vais tester ça cet après-midi.
En tout cas c'est devenu bien plus clair comme ça.
C'est toujours mieux de savoir exactement ce qu'on est entrain de coder plutôt que de bêtement recopier! ^^
Koala
Je vais tester ça cet après-midi.
En tout cas c'est devenu bien plus clair comme ça.
C'est toujours mieux de savoir exactement ce qu'on est entrain de coder plutôt que de bêtement recopier! ^^
Koala
Heelo,
Je m'excuse du retard, j'ai été assez pris ces derniers temps.
Lorsque j'exécute la macro, elle me renvoie un message sur la ligen de code qui ne fonctionne pas (surlignée en jaune).
Cette partie:
J'ai pourtant changé le nom de la feuil2 en Histo.
Je ne vois pas ce qu'il y a d'incorrect.
Merci encore
Cordialement,
Je m'excuse du retard, j'ai été assez pris ces derniers temps.
Lorsque j'exécute la macro, elle me renvoie un message sur la ligen de code qui ne fonctionne pas (surlignée en jaune).
Cette partie:
derlig = Sheets("feuil2").Range("A65536").End(xlUp).Row + 1
J'ai pourtant changé le nom de la feuil2 en Histo.
Je ne vois pas ce qu'il y a d'incorrect.
Merci encore
Cordialement,
Alors je viens d'arriver à supprimer le message d'erreur, donc je ne peux plus te dire.
Par contre la macro n'enclenche le copier/coller que d'une seule ligne. Coment pourrais-je sélectionner tout une plage depuis la cellule A6 à la cellule BQ19?
Je suis perdu dans le code que tu m'as donné, à quel moment tu as saisi les info pour que la macro choisisse telle ou telle ligne?
Par contre la macro n'enclenche le copier/coller que d'une seule ligne. Coment pourrais-je sélectionner tout une plage depuis la cellule A6 à la cellule BQ19?
Je suis perdu dans le code que tu m'as donné, à quel moment tu as saisi les info pour que la macro choisisse telle ou telle ligne?
D'accord.
Et les lignes:
Ce sont les tests pour savoir s'il peut prendre ces lignes et les copier.
Je comprend ces lignes de code comme ça:
Si la colonne F n'est pas vide et que les colonnes B et C sont égales à rien, alors la macro copie les lignes 1 à 10.
Et les lignes:
For i = 1 To 10
'si, dans ces lignes F n'est pas vide, B = "" (égale rien), C = "" Alors
If Not IsEmpty(.Range("F" & i)) And .Range("B" & i).Value = "" And .Range("C" & i).Value = "" Then
'derlig est une variable qui va contenir le numéro de la première ligne
Ce sont les tests pour savoir s'il peut prendre ces lignes et les copier.
Je comprend ces lignes de code comme ça:
Si la colonne F n'est pas vide et que les colonnes B et C sont égales à rien, alors la macro copie les lignes 1 à 10.
