Discussion :

[dimitri70]

Bonjour

J'ai trouvé un code VBA qui em permet d'effacer les valeurs de toute une colonne pour pouvoir par la suite ré-écrire dessus.

Voici le code:


Sheets("Feuil2").Range("b4:b" & Sheets("Feuil2").Range("b65000").End(xlUp).Row + 1).ClearContents


je souhaiterais effacer uniquement les cellues de la colonne B ( B4 à B19). Le problème est que cette formule m'efface toute la colonne B. Je n'arrive pas résoudre ce problème (difficile de comprendre cette formule).

est ce que quelqu'un pourrait m'éclairer?

Merci par avance de votre aide

[Menhir]

J'ai trouvé un code VBA qui em permet d'effacer les valeurs de toute une colonne pour pouvoir par la suite ré-écrire dessus.

Avant d'intégrer un morceau de code, essaye d'utiliser l'aide VBA d'Excel pour en comprendre chaque éléments.
Ainsi, rapidement, tu ne seras plus obligé de récupérer du code les yeux fermés mais tu pourras créer ton propre code.

je souhaiterais effacer uniquement les cellues de la colonne B ( B4 à B19).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil2").Range("b4:b19").ClearContents

[dimitri70]

Merci Menhir pour ton aide

Je fais de mon mieux pour rechercher dans l'aide et comprendre mais ce n'est pas facile.



J'ai encore un petit soucis.

Je voudrais recopier les nouvelles valeurs à partir de la cellule B6, mais si j'ai des valeurs dans les la colonne après la cellule B22, les nouvelles valeurs se mettent en dessous et non pas dans ma plage réservée à cela.
Voici la formule:

'Plage de recherche des valeurs PF5 CR1
Set Plage = Sheets("Visu lignes").Range("c18:r18,c20:r20")
'Mise en liste des valeurs PF4
For Each cell In PlageSet Liste = Sheets("Feuil2").Range("b6:b" & Sheets("Feuil2").Range("b64300").End(xlUp).Row + 1)
If Application.CountIf(Liste, cell) = 0 Then
Sheets("Feuil2").Range("b65300").End(xlUp).Offset(1, 0) = cell
End If
Next cell

Merci encore une fois

[Menhir]

J'ai encore un petit soucis.

J'ai l'impression que ça va être un sujet spagetti : ça commence par un petit bout et plus tu tires, plus il s'allonge.

Je voudrais recopier les nouvelles valeurs à partir de la cellule B6, mais si j'ai des valeurs dans les la colonne après la cellule B22, les nouvelles valeurs se mettent en dessous et non pas dans ma plage réservée à cela.

Est-ce que c'est ce que ça fait ou est-ce ce que tu veux faire ?

Voici la formule:

Pense à utiliser les balise de code (l'icone # dans l'éditeur du forum) et fais des itération de tes structures pour que ce soit plus lisible.

Et fais attention à tes copier/coller : tu as mis une instruction Set sur la même ligne que ton For Each.

[dimitri70]

Ooops désolé Menhir, non après cela je n'ai plus de quesion.

En faite la formule marche très bien,

J'ai une première formule qui efface les données recopiées lors de précends usages (plage de B4 à B22).
Et la deuxième partie de la formule recopie les nouvelles données mises à jours (de B4 à B22).

Le soucis est que si j'ai des valeurs à partir de B22, les nouvelles valeurs s'affichent en dessous de ces valeurs et nopn pas dans ma plage B4à B22. C'est ce que je cherche à faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Lorettelundi()
Dim Plage As Range, cell As Range
Dim Liste As Range
'Départ navette du vendredi 17h: lorette lundi 5-21h et SGL lundi 5h->14
'Effacement de la liste LOR
Sheets("Feuil2").Range("b6:b22").ClearContents
'
'Plage de recherche des valeurs PF8 CR1
Set Plage = Sheets("Visu lignes").Range("c8:r8,c10:r10")
'Mise en liste des valeurs PF8
For Each cell In Plage
Set Liste = Sheets("Feuil2").Range("b6:b" & Sheets("Feuil2").Range("b64300").End(xlUp).Row + 1)
If Application.CountIf(Liste, cell) = 0 Then
Sheets("Feuil2").Range("b65300").End(xlUp).Offset(1, 0) = cell
End If
Next cell

Encore désolé pour la mise en forme, j'espère être plsu claire.

Merci pour votre aide

[Menhir]

Le soucis est que si j'ai des valeurs à partir de B22, les nouvelles valeurs s'affichent en dessous de ces valeurs et nopn pas dans ma plage B4à B22. C'est ce que je cherche à faire

Je ne comprends pas ta question.

Tu veux dire que s'il y a plus de nouvelles valeur que de cases dans la zone B6:B22, tu ne veux pas qu'elles s'écrivent dans B23 et suivantes ?
Mais dans ce cas, que veux-tu qu'il se passe ? Que les valeurs supplémentaires ne soient pas écrites ou qu'elles soient écrites à la place des valeurs qui ont déjà été placées ?

[dimitri70]

Non ce n'est pas ca.

ma plage ou s'affiche les valeurs quand je lance ma macro va de B6 à B22.

Si après avoir lancé ma macro, j'ajoute des valeurs quelquonques en dessous de B22 et que je relance ma macro, les valeurs de ma plage B6à B22 s'affacent, celles en dessous restent (puisque ne ne sont pas prisent en compte dans ma macro), et les nouvelles valeurs générées par ma macro s'affichent en dessous des autres qui n'ont pas été effacées. => moi je voudrais qu'elle réapparaissent unqiuement dans la plage de B6 à B22.

l'espace entre B6 et B22 est suffisant.

En esperant avoir été plus clair

[Menhir]

Dan ce cas, il faudrait que tu commences ta recherches de la dernière cellule à B22 et non à B64300 (ce qui, de toute façon, était une erreur, mieux valait écrire "B" & Rows.Count, c'est plus propre et plus précis).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For Each cell In Plage
   Set Liste = Sheets("Feuil2").Range("b6:b" & Sheets("Feuil2").Range("b64300").End(xlUp).Row + 1)
   If Application.CountIf(Liste, cell) = 0 Then Sheets("Feuil2").Range("b22").End(xlUp).Offset(1, 0) = cell
Next cell

[dimitri70]

Merci Menhir ca marche nickel.

Le vrai problème c'est que j'ai du mal à saisir la formule.

Est ce qu tu pourrais m'expliquer le raisonnement?

[Menhir]

Le vrai problème c'est que j'ai du mal à saisir la formule.

Décompose la formule en éléments et regarde chaque éléments dans l'aide.
VBA est un langage objet. Chaque éléments est un objet (une propriété ou une méthode) de l'élément précédent (en lisant de gauche à droite bien sûr)
Sheets("Feuil2") c'est la feuille de calcul.
Range("b22") une cellule de cette feuille
End(xlUp) et Offset(1, 0), regarde la liste des membre de l'objet Rande dans l'aide Excel.

Est ce qu tu pourrais m'expliquer le raisonnement?

Une fois qu'une discussion est déclarée Résolue, il n'y a plus grand monde qui va regarder dedans.