[VBA]Récupérer n° des lignes avec cellule vide
Résolu/Fermé
A voir également:
- [VBA]Récupérer n° des lignes avec cellule vide
- Recuperer video youtube - Guide
- Comment récupérer un compte facebook piraté - Guide
- Recuperer message whatsapp - Guide
- Aller à la ligne dans une cellule excel - Guide
- Récupérer photo instagram - Guide
4 réponses
roupille008
Messages postés
33
Date d'inscription
lundi 18 février 2013
Statut
Membre
Dernière intervention
4 avril 2013
26 févr. 2013 à 14:51
26 févr. 2013 à 14:51
yop!
Voilà ce que je ferai:
Ou alors tu fait un rechercher/remplacer où tu cherche "" et tu remplace par zéro.
Voilà, c'est ce qui me vient à l'esprit.
Salut!
Voilà ce que je ferai:
Sub remplacer_vide_par_zero Dim a as integer a=1 do while a< 9999999 'ce 9999999 correspond au nombre de ligne de ta feuille if cells(a,2)="" then cells(a,2)=0 end if a=a+1 loop End sub
Ou alors tu fait un rechercher/remplacer où tu cherche "" et tu remplace par zéro.
Voilà, c'est ce qui me vient à l'esprit.
Salut!
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
26 févr. 2013 à 18:59
26 févr. 2013 à 18:59
Bonjour
Une bidouille pour le principe et sans vba....
https://www.cjoint.com/?3BAs6FtFPbr
Une bidouille pour le principe et sans vba....
https://www.cjoint.com/?3BAs6FtFPbr
Bonjour,
Merci pour les réponses !
J'aime bien ton petit graphique, c'est une bonne idée =)
J'ai avancé d'un pas sinon, j'ai trouvé "EntireRow", et dans l'exemple ils parlaient de "Address", j'ai donc essayé ceci :
Et je récupère donc un String contenant :
Il ne me reste donc "plus qu'à" virer ces B, découper les nombres grâce à la virgule, et enfin affecter ces valeurs à ma nouvelle courbe de graphique.
Une question arrive, hier soir j'ai essayé d'affecter tour à tour (boucle) une valeur à ma série 2 du graphique, en utilisant ".XValues", mais bien sûr, cela remplace les anciennes valeurs.
Y-a-t'il une possibilité d'ajouter une valeur en gardant les anciennes (genre .Add ou qqchose du genre) ??
Merci en tout cas ;)
Merci pour les réponses !
J'aime bien ton petit graphique, c'est une bonne idée =)
J'ai avancé d'un pas sinon, j'ai trouvé "EntireRow", et dans l'exemple ils parlaient de "Address", j'ai donc essayé ceci :
test2 = Selection.SpecialCells(xlCellTypeBlanks).Rows.Address(False, False)
Et je récupère donc un String contenant :
"B51,B102,B153,B204,B255,B306,B357,B408,B459"
Il ne me reste donc "plus qu'à" virer ces B, découper les nombres grâce à la virgule, et enfin affecter ces valeurs à ma nouvelle courbe de graphique.
Une question arrive, hier soir j'ai essayé d'affecter tour à tour (boucle) une valeur à ma série 2 du graphique, en utilisant ".XValues", mais bien sûr, cela remplace les anciennes valeurs.
Y-a-t'il une possibilité d'ajouter une valeur en gardant les anciennes (genre .Add ou qqchose du genre) ??
Merci en tout cas ;)
Voilà je suis arrivé à ce que je voulais =)
Et ensuite je convertis ce tableau de String en tableau d'entier, et enfin j'affecte à ma série 2 du graphique le tableau d'entier :
Parfait merci pour l'aide apportée et j'espère qu'avec cela j'aiderai quelqu'un également !
Résolu !
' Récupération des adresses de lignes vides adrLignVide = Selection.SpecialCells(xlCellTypeBlanks).Rows.Address(False, False) ' Suppression des lettres de colonnes adrLignVide = Replace(adrLignVide, "B", "") 'Extraire les données séparées par une virgule dans un tableau de chaine de caractères Tableau = Split(adrLignVide, ",")
Et ensuite je convertis ce tableau de String en tableau d'entier, et enfin j'affecte à ma série 2 du graphique le tableau d'entier :
For i = 0 To UBound(Tableau) ' Boucle de conversion en entier TableauEntier(i) = CInt(Tableau(i)) - (i + 1) Next i ActiveChart.SeriesCollection(2).XValues = TableauEntier()
Parfait merci pour l'aide apportée et j'espère qu'avec cela j'aiderai quelqu'un également !
Résolu !